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Editorial 


Cuando estábamos planificando la presente edición de la revista, 
evaluamos los diversos temas con los que contábamos para figurar en 
portada. Al final nos inclinamos por los joysticks y paddle , dispositivos 
de fundamento sencillo que todo usuario de ordenador personal se ha 
planteado alguna vez adquirir. El tema es extenso e interesante, por lo 
cual decidimos trocearlo en dos partes. La siguiente se publicará en el 
próximo número, también en las dos vertientes adoptadas: teórica y 
práctica. Hoy publicamos la fabricación de un joystick artesanal, dentro 
de un mes haremos lo propio con un paddle. 

Los sufridos lectores usuarios del Vic 20 habrán podido observar 
algunos desequilibrios en el reparto de los programas publicados, en 
favor del Commodorc 64. Esto vino impuesto por la calidad de los 
programas que teníamos en cartera, lo cual no quiere decir que en 
determinados números, por ejemplo, el siguiente, la balanza se incline en 
sentido contrario. En esa ocasión serán los usuarios del C-64 quienes 
hagan surgir sus reclamaciones. Pero así es la vida, nunca llueve a gusto 
de todos, por más que nosotros nos empeñemos. De todas maneras, ya 
veréis el día que nos sea posible disponer de mayor número de páginas. 

Desde aquí deseamos aprovechar para animaros a que sigáis 
enviando el fruto de vuestros trabajos, en forma de programa. Por 
nuestra parte prometemos analizar todos los envíos, aunque lleguemos al 
límite de nuestra capacidad de desbordamiento. Este último factor es el 
que nos impide contestar puntualmente a vuestras interesantes y amables 
cartas de ánimo y dudas. Os rogamos un poco de paciencia al respecto. 
Nuestra intención es contestarles todas, bien en la sección de cartas o 
personalmente. Otras veces agrupamos un número de cartas, por ser 
similar su contenido y, aunque contestamos a un solo lector, la respuesta 
va dirigida a todos los demás. No os enfadéis si la respuesta no llega con 
la celeridad que os gustaría y, por favor, una reflexión: si nos 
dedicáramos a responderlas todas inmediatamente. ¿Quién escribiría la 
revista? 

Próximamente habrá novedades, una de ellas consistirá en explicar 
más detalladamente los programas que se publiquen. 

Ahora os dejamos que disfrutéis la revista y únicamente recomenda¬ 
ros que no dejéis de leer el fantástico artículo sobre el lenguaje LOGO 
que ha redactado un colaborador muy experto en la materia. 
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_Códigos de control_ 

para el VIG-20 y el C3-64 


COMO b’E 

VE cono SE TECLEA 

EFECTO CONSEGUIDO 


COLORES 

DEL VIC-20 V DEL 64 

• 


■ 

CTRL+1 

NEGRO 


4 

CTRL+2 

BLANCO 


rs 

CTRL+3 

‘ROJO 


k. 

CTRL+4 

CIAN 


i 

CTRL+5 

PURPURA 


B¡ 

CTRL+6 

VERDE 


m 

KM 

CTRL+7 

AZUL 


ni 

CTRL+8 

AMARILLO 


COLORES 

DEL 64 SOLAMENTE 



Í3 

CBM+1 

NARANJA 


R 

CBI‘1+2 

MARRON 



OBM+3 

ROSA 


i] 

CBM+4 

GRIS OSCURO 


¡a 

CBM+5 

GRIS MEDIO 


ii 

CBM+6 

VERDE CLARO 

• 

a 

CBN+7 

AZUL CLARO 


■ i 
■i 

CBM+8 

GRIS CLARO 


con IGQS 

• 

5 DE CURSOR V CONTROL 



a 

HOME 

CURSOR A CASA 


□ 

SHIFT+HOME 

LIMPIA PANTALLA 


UI 

CRSR 

CURSOR IZQUIERDA 


11 

SHIFT+CRSR 

CURSOR DERECHA 


:« 

CRSR 

CURSOR ABAJO 


n 

SHIFT+CRSR 

CURSOR ARRIBA 


a 

CTRL+9 

CARACTER INVERSO 


■ 

UTRL+0 

CARACTER NORMAL 


ti 

DEL 

BORRAR 


ii 

SHIFT+DEL 

INSERTAR 


TECLAS 

DE FUNCION 

\ 


■ 

F1 



R 

F2-SHIFT+F1 



■ 

E o 


V 

Ii 

F4=SHIFT+F3 



1! 

F5 



SI 

F6-SHIFT+F5 

> 


DI 

F7 



■. 

F8=SHIF.T+F7 
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Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador VIC-20. 


Diviértase con ellos y, además, ahorre dinero con esta oferta única y exclusiva para los 
lectores de esta revista. 



CREEPERS 

Controlas al último guerrero que 
defiende la alimentación de 
energía de las ciudades 
subterráneas. Los invasores se 
agarran al tejado, encima de tí, y 
procuran controlar los bloques de 
energía. Si lo logran, los bloques de 
una zona se convierten en mutantes 
y se alojan en ti. Los nervios y los 
reflejos son vitales. Te estás jugando 
el todo o nada. 

Precio: 1,350 ptas. 



ENVAH1 

Arriba, sobre la ciudad de Envahi, 
está la presa que alimenta de 
energía y agua a sus habitantes. 

Tú estás controlando un helicóptero 
armado que patrulla el cielo para 
protegerla de los truhanes que 
vienen decididos a destruirla. No es 
todo: el velero comilón cruza desde 
el este y de unos pocos mordiscos 
puede deshacer la presa e inundar 
la ciudad. Ah ¡No olvides tu 
oaraguas; puede ser útil! 

Precio: 1.350 ptas. 


MISSION MERCURY 

La Agencia Tierra Espacio acaba de 
anunciar que se ha perdido toda la 
vida en Mercurio, cuando se recibe 
un dramático SOS desde el planeta. 
Como eres el astronáuta más 
experimentado, te escogen para 
organizar la misión de rescate. 
“Estación Mercurio llamando al 
equipo de rescate... fábrica de 
caminos para lanzaderas... 
desestabilizado... aterrizar 
solamente una vez...". De prisa, 
no tienes tiempo que perder. 

Precio: 1.350 ptas. 



SNOOKER 

No confundirse. Snooker es sólo 
aparentemente un juego de billar. 
En la práctica es mucho más, 
un medio para desarrollar el 
concepto y la visión del espacio. 
Pocos programas son tan adecuados 
como éste para adquirir la 
coordinación de velocidad, ángulos 
e intersecciones. Usted puede 
tomárselo como quiera: como un 
billar (¿por qué no?) o como una 
clase práctica de física y 
geometría aplicadas. 
Precio: 1.350 ptas. 




Usted puede comprar cualquiera 
de estos cassettes a su precio 
individual de 1.350 Ptas. 

Pero también puede adquirir el L 
lote de 4 por sólo 4.050 Ptas. 
y AHORRARSE 1.350 Ptas. 

^ O sea, cuatro cassettes por eJ 
fcp recio de tres. Aproveche esta 
oferta limitada. A 


Recorte y envíe este cupón HOY MISMO a: 

INFODIS, S.A. 

Bravo Murillo, 377-5.°-A 
28020 MADRID 




í 


Envíenme a mi domicilio, al precio de 1.350 Ptas. cada una, más 95 Ptas. de gastos, la cassette o 
cassettes que le indico a continuación marcando con una (X) en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.350 Ptas., lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.050 Ptas. más 95 Ptas. por gastos de envío). 


□ CREEPERS □ ENVAHI □ MISSION MERCURY □ SNOOKER 


| | Las 4 cassettes, en las ventajosas condiciones de AHORRO para mí (4.050 Ptas. 


El importe lo abonaré: 

POR CHEQUE □ CONTRA REEMBOLSO □ CON TARJETA DE CREDITO □ 
American Express Q Visa D Interbank G Fecha de caducidad _ 


Número de mi Tarjeta 



Nombre_ 

Dirección _ 

Ciudad _ 

Provincia _ 

Cada envío llevará 95 Ptas. en concepto de gastos. 


D.P. 


- 
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Los juegos representan uno de los 
mayores atractivos que nos incitan a 
comprar un ordenador personal. No 
conviene olvidar otras posibilidades, 
tales como el software educativo y la 
posibilidad de aprender lenguajes de 
programación, principalmente BA¬ 
SIC. Como es lógico, cualquier juego 
que se precie tiene una característica 
común y fundamental: la interactivi¬ 
dad. Es difícil imaginar un juego con 
el que el ordenador sea juez y parte, 


sin permitir la intervención del asom¬ 
brado usuario. De momento están 
lejos las maravillas que el futuro nos 
promete, tales como interactividad 
por medio de la palabra, donde el 
ordenador reconoce y sintetiza la voz. 
Hoy por hoy el tipo de accesorio más 
ampliamente utilizado es el joystick 
seguido por el paddle. 

Comencemos por recordar qué es 
cada una de estas dos cosas que tan 
bien suenan. Joystick viene a signifi¬ 


car literalmente “bastoncillo para ju¬ 
gar”, y eso es en definitiva un bastón 
similar a una réplica en miniatura de 
la palanca de cambio para un auto¬ 
móvil, que nos permite ejercer un 
cierto control sobre lo que sucede en 
el interior de la máquina. En este 
caso, el programa que está corriendo 
el ordenador debe disponer de órde¬ 
nes adecuadas que permiten actuar al 
joystick. Por el momento seguiremos 
utilizando el vocablo inglés, a la 
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espera de encontrar otro más agrada¬ 
ble y significativo. Por su lado , paddlc 
es otra palabreja de procedencia an¬ 
glosajona. Se puede traducir por "pa¬ 
la”, de esas similares a las raquetas. 
En realidad responde a otro concepto 
más amplio. El paddlc podría tener un 
solo grado de libertad, siendo un 
botón que podemos girar más o 
menos, como el control de volumen 
de nuestro receptor de radio. Pero 
también puede tomar una apariencia 
similar a la del jovstick, siendo en tal 
caso la combinación de dos ¡unidles, 
cuyos ejes de giro están desplazados 
noventa grados entre sí. 

Bueno, se preguntará, ¿cómo es 
posible que dos accesorios que pue¬ 
den llegar a tener un aspecto prácti¬ 
camente igual tienen nombres tan 
diferentes? Es ahora cuando debemos 
hablar del tipo de señales de salida 
que producen. El jovstick nos da 
señales discretas y el paddlc, conti¬ 
nuas. Supongo que esto seguirá sin 
decirles gran cosa a la mayoría de los 
lectores. Después de ver cuál es la 
construcción física de ambos todo 
comenzará a verse más claro. 

En esencia, el jovstick está com¬ 
puesto por un conjunto de cinco o 
seis pulsadores eléctricos, dispositivos 
que cierran un circuito eléctrico 
cuando son presionados, tal como 
pueden ser las teclas del ordenador o 
el timbre de la puerta. Cuatro de ellos 
se colocan desplazados noventa gra¬ 
dos entre sí, como serían los cuatro 
puntos cardinales en una brújula. Por 
el diseño mecánico del dispositivo, 
ocurre que cuando movemos el bas- 
toncito hacia delante se cierra uno de 
los pulsadores, cuando se mueve ha¬ 
cia detrás se activa el situado inme¬ 
diatamente enfrente y lo mismo ocu¬ 
rre para los movimientos a izquierda 
y derecha. Los otros dos pulsadores, 
llamados de fuego, son activados 
directamente por el usuario a volun¬ 
tad, como es el caso de abrir el fuego 
láser contra los voraces marcianitos. 
Son dos porque suelen situarse en 
diferentes lugares del jo vstick, de cara 
a eliminar las posibilidades de que el 
marciano nos pille desprevenidos. 
Pues bien, el cierre de cada uno de 
estos pulsadores produce una señal, 
que será circuito abierto o circuito 
cerrado, o si lo preferimos 1 y 0, en 
los cables que 'están conectados a 


cada uno de ellos. Normalmente, uno 
de los terminales de todos los pulsa¬ 
dores va unido a otro común a todos 
los demás, como forma de ahorrar 
cables innecesarios de salida. Iermi- 
nemos por ahora diciendo que cuan¬ 
do apuntamos hacia adelante \ a la 
derecha simultáneamente, se cierran 
los circuitos de ambos pulsadores a la 
vez. 

A cada pulsador se le puede asociar 
a un determinado bit de un b\le 
(agrupación de S bits), de ta 1 manera 
que cuando ese pulsador está cenado 
su bit asociado vale 1. atribuyéndose¬ 
le un 0 en caso contrario. Según el 
valor ponderado que asociemos a 
cada pulsador se obtiene un bvte. 
cuyo valor numérico depende de la 
dirección a que apunte el jovstick \ 
también si está pulsado el botón de 
fuego. Estos valores nunca son distin- 
tos de un grupo de valores "discre¬ 
tos”, siendo las diferencias lo sufi¬ 
cientemente dispares como para que 
no exista una sensación de conti¬ 
nuidad. 



El principio en torno al que se 
desarrolla el paddlc es bastante dife¬ 
rente. Antes hablábamos del control 
de volumen de la radio. En realidad 
es lo mismo. El componente electró¬ 
nico que utilizan ambos es el mismo y 
su nombre técnico es el de potenció¬ 
metro. La pequeña diferencia estriba 
en que el del receptor produce una 
variación logarítmica en su resisten¬ 
cia interna, a medida que giramos su 
eje (un potenciómetro es una resisten¬ 
cia variable), mientras que con el 
paddlc utilizamos uno lineal, lo que 
quiere decir qtie a igtial cantidad de 
grados de turo obtenemos la misma 
variación en la resistencia que presen¬ 
ta el potenciómetro a la corriente 
eléctrica. Por ser continuo el movi¬ 
miento del eje. desde el principio al 
fin (unos 270 . aproximadamente) el 
tipo de señal que nos produce viene 
también cuantificada linealmente, 
aunque el ordenador la convierte en 
valores escalonados por la naturaleza 
digital del sistema, pero estos valores 
varían de uno en uno. por lo que la 
sensación de continuidad está asegu¬ 
rada. 

Para disipar dudas continuamos 
diciendo que ambos tipos de acceso¬ 
rio pueden ser utilizados tanto con el 
Vic 20 como con el C-64. La conexión 
es directa por medio de los ports que 
el fabricante ha dispuesto en el exte¬ 
rior de los ordenadores. El tipo de 
conector es exactamente el mismo 
para ambos, respondiendo al están- 
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VIC 20 

OEM- 

-64 

PORT 

PORT 1 

PORT 2 | 
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JÜV 0 

JÜV H0 

JOV B0 

u> 

JGV 1 

JOV Hl 

JOV B1 

.^1 

JOV 2 

JOV Ñ2 

JOV B2 

4 

JÜV 3 

JOV R3 

JOV B3 

ir 

.j 

PÜT Y 

PÜT R : t 

POT BV 

6 

LÑPI Z OPTICO 

BOTON fi/L.Ü. 

BOTON B 

f 

+5V 

+5V 

+5V 

8 
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MfiSñ 

s 

POT X 

PÜT RX 

POT BX 
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dar creado en su día por Atari, por 
ello también es posible utilizar los 
modelos de esta marca. 

I:\teriormente, el aspecto de los 
conectores de ambos ordenadores es 
idéntico. La principal diferencia con¬ 
siste en que el Vic 20 dispone de uno 
solo, mientras que el C-64 lleva in¬ 
corporados dos. La apariencia de 
estos ports puede verse en la figura 3, 
junto con la tabla que muestra la 
correspondencia entre terminales del 
eonector. Lste conector corresponde 
a un estándar llamado tipo D, en este 
caso es de 9 patillas. 

Aun cuando tanto el Vic 20 como el 
C-64 pueden utilizar los mismos mo¬ 
delos de joystick y padcilcs , la manera 
en que estos accesorios para juegos se 
comunican con la circuitería es dife¬ 
rente. por haber sido diseñados en 
épocas próximas, pero distintas, utili¬ 
zándose en cada momento lo que el 
mercado de los chips ofrecía. El Vic 


20 utiliza un chip denominado VIA 
6522 que corresponde a las siglas de 
l cv sci ti le Intci face Aciap te r, mientras 
que el C-64 utiliza otro más sofistica¬ 
do, el CIA (Complex Interface Adap¬ 
te ij 6526. En realidad ambos ordena¬ 
dores utilizan un par de este tipo de 
chips cada uno. 

Comenzamos con el Vic 20. Los 
dos VIA disponen de una serie de 
registros internos, pero de momento 
nos centraremos en el conocido por 
DDR (Data Direction Registeis) o 
Registros de Dirección de los Datos. 
El VIA dispone de dos parís de 
Entrada/Salida y cada uno de los dos 
DDR (A y B) se encarga de definir 
qué patilla de los ports es de entrada o 
de salida de datos; es decir, si uno 
determinado envía datos al exterior, 
procedentes del ordenador, o si, por 
el contrario, los toma desde fuera 
para alimentar de información al 
ordenador, como es el caso de la 


utilización del joystick. Recapitule¬ 
mos, cada bit del byte de cada DDR 
controla que una patilla de un deter¬ 
minado port sea de entrada o de 
salida de datos. A su vez nosotros 
depositamos, mediante programa¬ 
ción, el bvte adecuado para cada 
DDR. Si un bit es puesto a 1, su 
patilla correspondiente será de salida. 
En caso contrario es de entrada. 

Por peculiares razones de diseño 
sucede que uno de los VIA se hace 
cargo de tres de los pulsadores y el 
botón de fuego del joystick y el otro 
VIA controla al cuarto. Esto no nos 
afecta en otra cosa más que en lo 
engorrosa que se hace la programa¬ 
ción. Pero con la ayuda del útil 
POKE y conociendo las direcciones 
de memoria adecuadas, obtendremos 
unos resultados óptimos. Lo que 
acabamos de ver se materializa de la 
siguiente forma. Las direcciones de 
memoria asociadas a cada VIA con- 
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Avda. Mistral, 10, 1Z 0 esc. Izda 

BARCELONA-1 5 


(9 33 4 3 2 0 7 31 


ANTES DE COMPRAR, 

CONTABILIDAD 64 VERSION: A 

PROFESIONAL 300 cuernas 

3.000 apuntes 



CONSULTENOS 


VERSION: B 

600 cuentas 
2.300 apuntes 


ADMINISTRACION 
DE FINCAS 


PROGRAMAS EN 
CARTUCHO + DISKETTE 


• Listado de diario 

• Balance de situación y de Sumas y. Saldos 

• Estractos de cuenta 

• Cuenta de explotación, diario de cierre 

• Mantenimiento de ficheros, utilitario... 

EQUIPO NECESARIO 

• COMMODORE 64 y unidad de disco 

P V.P.: VEñSiONA:24 ' 550 “ • IMPRESORA MPS 801 (versión A y B) 

VERSION B: 29.500,- • IMPRESORAS CENTRONICS (versión B) 

ADAPTADO AL PLAN GENERAL CONTABLE ESPAÑOL 


30 inmuebles 
400 inquilinos 
Listado recibos 
Propiedad vertical 
Comunidades de propietarios 

P.V.P.: 35.000, - 


VIDEOCLUBS 64 

1.800 videofiims 
650 clientes por disco 
Saldo de cada cliente 
Altas y bajas videofilms 
Búsqueda videofilms/cüentes. 

P.V.P.; 35.000,- 
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trolan lo siguiente: 37137 el Norte, 
Oeste, Sur, y botón de disparo de los 
pulsadores dispuestos en forma de 
brújula. El pulsador que corresponde 
a la posición del Este va asociado con 
la 37152. La utilización de PEEK 
para conocer el contenido de los 
registros situados en estas direcciones 
de memoria nos permiten saber en 
qué dirección se ha movido el joysiick 
o si hemos hecho fuego. Sin embargo, 
los primero que debemos hacer es 
poner en orden los DDR, cuyas 
direcciones de memoria son 37139 y 


37154. La primera es el DDR A y la 
segunda, el B. Para configurarlos 
correctamente debemos recurrir a: 
1000 POKE 37139 , 0 
1010 POKE 37154. 127 

Siendo ficticios los números de línea 

/ 

de programa. Después de esto se 
puede utilizar PEEK, pero con reser¬ 
vas, todavía hay que desmenuzar su 
información para ver cómo la hace¬ 
mos útil a nuestros fines. La informa¬ 
ción contenida en 37137 es la siguien¬ 
te: el bit 2 nos dice que hemos 
pulsado el Norte: el bit 3. el Sur: el bit 
4, el Oeste, y finalmente, el 5 denun¬ 
cia el fuego. Por su lado, 37152 indica 
en su bit 7 que ha sido presionado el 
pulsador de! Este. 

En la sección destinada al montaje 
práctico de un joysiick proporciona¬ 
mos una interesante rutina de utili¬ 
zación, acompañada de varios ejem¬ 
plos. 


Analicemos ahora cómo utiliza el 
C-64 su par de OI As para leer los 
joysticks. Igual que con el VIA aquí 
disponemos de dos parís paralelo de 8 
bits (un bvte) de longitud de palabra, 
aunque también hay dos tempori/a- 
dores de intervalo, un reloj diario \ 
un port serie de Entrada/Salida sín¬ 
crono. Una de las CIAs queda desti¬ 
nada al pon de usuario y al conector 
serie, capaz de comunicarse con di¬ 
versos periféricos tales como la im¬ 
presora, la unidad de ciiskcttrcs . etc. 

La otia CIA es la que nos interesa, 
actúa como intcrface de conexión con 
el teclado, lectura del cassette y lectu¬ 
ra de joysticks y lápiz óptico. 

Igual que hicimos con el Vic 20 
ahora seguiremos hablando de las 
direcciones de memoria del C-64 que 
afectan a los ports de control. El port 
1 está conectado a la dirección 56321 
y el port 2, a la 56320. Solamente se 


utiliza la mitad del bvte de cada una 
de ellas, los cuatro bits de menor 
peso. Mediante la operación lógica 
AND se obtiene la información: 

A - PEEK (56321) AND 15 

B = PEEK (56320) AND 15 

Igual que en el caso anterior, la 
plena utilización de estas direcciones 
con fines prácticos serán desglosadas 
en el montaje y en la segunda parte de 
este artículo. 

Entremos a ver lo que ocurre con 
los paclclles. Pero aclaremos previa¬ 
mente que es necesaria la existencia 
de alguna circuitería que se encargue 
de la conversión A/D (analógico/di¬ 
gital). que transforma las señales 
analógicas (resistencia del potenció¬ 
metro).en valores digitalizados, como 
aclarábamos hace unos párrafos. En 
ambos casos, (Ommodore ha confia- 
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d; . . . * . rúnicos de la 

mar.-. : n rí \ ic 20 es el chip 

SID •• _.. . “ .. r r medio de 

las patillas POT \ POT Y (5 y 7 del 
conec: r. . :e). El U-64 

útil: „ ctep v .7> : x que. recorde- 
im n. e' l! sai ju ce s, nido. Leer 
los pac.ti es ib *r.:.,j.ón más o 
menoN r. _ .--o. ira de los 

jowtick Vq a » 7 que compro¬ 
bar el e<_c c_ ' pulsadores, 

sino ¿o- \_1 d _ o c «rrespon- 
d ientes a la iiMiifaiI de giro electna¬ 
da en el AJÍ y c .o valor puede 
oscila: e *. . O \ 2 ~ ~ Pin . ) que a los 
botones _ -r. 'j refiere, se 

utilizan L' snisai - .: lecciones de 
memoi . \ la misma la del conec- 
lor que ^e Uv> Kk vsticks. 

I :i las lir ~ ■ : HS“2 \ 36873. 

res pee t : . u. acenan los 

valores de . Y c Y. Por tanto: 
1000 \ - Pi I x i : x ~2) 

1010 Y = PEEK 0873) 
proporc o i el \ . i respondien¬ 
te a cada » J. .2 ' 1 s direcciones 
equivale e- : - -^4 son 54297 \ 

5429N pn:c. PO I \ P()l V respecti¬ 
vamente. pero no i\ . e >s que ha\ 
dos port s de ^oriioí . este caso \ la 
posibilid.ivi . - - .... cuatro pad- 

clles. dos po: . f ii ('linio v el e¬ 

mos. el m nLíu» c'i. e:' a dirección 
56320. 

(Continuará» 
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MICROSOFT BASIC^* FORTRAN 80 ★ Microsoft Logo ★ COL6CO cartuchos 
CP/M ★ Cobol 80 ★ MACROENSAMBLADOR Z80 ★ Ensamblador CP/M 


MSX. Es el sistema escogido por 16 fabricantes japoneses de ordenadores (SONY. PANASONIC, PIONER, SANYO, 


CARACTERISTICAS GENERALES 

SPECTRAVIDEO 

328 

SPECTRAVIDEO 

318 

APPLE II e 

C0MM0D0RE 

64 

ATARI 

600 xL 

BBC 

MODELO B 

DRAGON 

32 

ORIC 

ATMOS 

PROCESADOR . 

Z80 A 

Z80 A 

6502 

6510 

6502 

6502 

6809 E 

6502 

RELOJ EN MHz. 

4 MHz 

4 MHz 

1 MHz 

1 MHz 

1.8 MHz 

2 MHz 

1 MHz 

1 MHz 

MEMORIA STANDARD EN RAM. 

80 K 

32 K 

64 K 

64 K 

16 K 

32 K 

32 K 

48 K 

AMPLIABLE HASTA. 

144 K 

144 K 

— 

— 

64 K 

— 

64 K 

64 K 

MEMORIA STANDARD EN ROM. 

32 K 

32 K 

16 K 

20 K 

24 K 

16 K 

16 K 

16 K 

AMPLIABLE HASTA. 

96 K 

96 K 

— 

— 

— 

— 

_ 

_ 

MICROSOFT BASIC EXTENDIDO. 

SI 

SI 

— 

— 

_ 

NO 

SI 

SI 

NUMERO DE TECLAS.. 

87 

51 

62 

66 

57 

73 

53 

57 

TECLADO CON GRAFICOS PREDEFINIDOS .... 

SI 

SI 

— 

SI 

SI 

SI 

NO 

NO 

TECLAS DE FUNCION PROGRAMABLES. 

10 

10 

— 

8 

4 

10 

NO 

NO 

MANDO JOYSTICK INCORPORADO. 

NO 

SI 

— 

NO 

NO 

NO 

NO 

NO 

COLORES . 

16 

16 

16 

16 

16 

16 

9 

8 

SPRITES. 

32 

32 

— 

8 

8 

_ 

? 


RESOLUCION (Puntos de pantalla)... 

256x192 

256x192 

280x192 

320x200 

320x192 

256x640 

256x192 

240x200 

TEXTO EN PANTALLA. 

40x24 

40x24 

40x24 

40x25 

40x24 

40x32 

32x16 

40x28 

CANALES DE SONIDO. 

3 

3 

1 

3 

4 

1 

•3 

3 

OCTAVAS POR CANAL. 

8 

8 

4 

9 

? 

3 

5 

8 

A.D.S.R. ENVOLVENTE. 

SI 

SI 

NO 

SI 

NO 

SI 

NO 

SI 

CAPACIDAD UNIDAD DE DISCO. 

256 K 

256 K 

140 K 

170 K 

127 K 

100 K 

? 

? 

CENTRONICS. 

SI (opcional) 

SI (opcional) 

SI (opcional) 

— 

SI (opcional) 

SI (opcional) 

SI 

SI 

RS232 . 

SI (opcional) 

SI (opcional) 

SI (opcional) 

— 

SI (opcional) 

SI (opcional) 

— 

— 

80 COLUMNAS. 

SI (opcional) 

SI (opcional) 

SI (opcional) 

SI (opcional) 

SI (opcional) 

— 

— 

— 

PRECIO P.V.P. 

76.000 

49.900 

166.618* 

79.900 

58.500 

140.000 

67.800 

59.500- 


MSX y MICROSOFT son marcas registradas 
por MICROSOFT CORPORATION. 

CPM es una marca registrada por DIGITAL 
RESEARCH INC. 

COLECO VISION es una marca registrada por 
COLECO INDUSTRIES INC. 



DELEGACION EN CATALUÑA: ACE, S.A 
Tarragona, 100 - Barcelona-15. 

Teléfono (93} 325 10 58 


HARDWARE 

DISTRIBUIDOR OFICIAL DE SPECTRAVIDEO 
INTERNATIONAL LTD 

PASEO DE LA CASTELLANA, 179 - MADRID-16 
TELEFONO (91) 279 31 05 


YA DISPONIBLE EN 




... Y EN TODAS LAS 
TIENDAS ESPECIALIZADAS. 






























































Construye 

tu JOYSTICK 


Indudablemente, la mecánica cons¬ 
tituye la parte más delicada de la 
fabricación de un joystick. El diseño 
de las piezas que conforman la palan¬ 
ca de control, que activa los pulsado¬ 
res. representa una fase crítica. Se 
trata de un producto de alto nivel de 
consumo, que debe conjugar lo atrac¬ 
tivo de su diseño externo con la 
comodidad de manejo. En realidad lo 
que diferencia a un modelo de otro es 
la apariencia externa, terreno en el 
que compiten las diversas marcas 
entre sí. 

Como se hace evidente, la posibili¬ 
dad de desarrollar y construir piezas 
mecánicas de plástico no es algo que 
esté al alcance de cualquier aficiona¬ 
do, aparte de la dudosa rentabilidad 
económica que esto representaría, 
sale más barato comprar un joystick 
en la tienda. 

Sin embargo, existen alternativas a 
la mano de cualquiera con ganas. El 
precio es muy inferior, sacrificándose 
la comodidad de manejo, pero ele¬ 
vando a su cota máxima el entusias¬ 
mo por la obra propia. Es el hágase- 
lo-usted-mismo en su más elevado 
grado. 

Simplemente con cinco o seis pul¬ 
sadores cuyo circuito esté normal¬ 
mente abierto (es decir, que no haya 
continuidad entre sus bornes mien¬ 
tras no sea presionado). Luego habrá 
que disponerlos adecuadamente en 
una pequeña caja de plástico, soldar 
unos cuantos cables y poner el conec- 
tor tipo D, de 9 terminales en su 
extremo. En cuanto a este último, 
cabe decir, que se puede utilizar 


Figura 1. Diagrama esquemático de la conexión de los pulsadores del 
joystick. En el interior de cada uno se ha dibujado el símbolo del circuito 
que incorporan. 
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exactamente el mismo tanto para el 
Vic-20 como para el C-64. 

Construye 

tuJOYSTICK 

En la figura 1 se muestra un 
diagrama esquemático de la constitu¬ 
ción del montaje. Aparecen, por un 
lado, cuatro pulsadores formando 
una cruz. Cada uno de ellos servirá 
para controlar el movimiento del 
cursor, marcianito, etc., en uno de los 
cuatro sentidos, o un movimiento en 
diagonal cuando se pulsen dos simul¬ 
táneamente. Claro está que en cual¬ 
quier caso el programa que utilicemos 
deberá incorporar una rutina, o serie 
de ellas, que posibiliten un reflejo del 
movimiento en la pantalla. Más ade¬ 
lante en este artículo mostraremos 


algunos ejemplos que se pueden in¬ 
cluir en los programas que nosotros 
mismos desarrollemos. 


El quinto pulsador será el de fuego, 
llamado así porque normalmente se 
utiliza para disparar cuando estamos 



Figura 2. Aspecto que ofrecen los 
ports de control, vistos desde el fren¬ 
te. 


corriendo un programa de juegos. 
Aunque en la figura sólo aparece uno, 
es factible disponer otro (u otros) en 



Figura 3. Joystick experimental. 


¡INCREIBLES TARJETAS 
PARA COMMODORE64 Y VIC-20 


DE 80 COLUMNAS 

LA TARJETA DE 64K ES LA PERFECTA COMBINACION PARA LA TARJETA DE 40/80 COLUMNAS: 

— Puede ubúoyer tíntre 22/40/80 columnas y obtiene 31743 bytes libres!!! 

— El sotware del EPROM de la tarjeta !e permite utilizar todos los comandos de ficheros (OPEN, CLOSE, PRINT, INPUT, GET, 
SAVE and LOAD) con los 31232 Bytes de Memoria «oculta», lo que produce la sensación de que hay 8 cassettes super rápidos 
conectados a su Vic-20 Imagínese... menos de 1 segundo para guardar 28 Kü! 



Tarjeta VIC-20 40/80 columnas 


Tarjeta COMMODORE 64 
80 columnas 

Tarjeta VIC-20 
Ampliación de memoria 
64 K-RAM 

Slots de expansión 
para VIC-20 y 64 
de 2 y 5 para conexión 
de tarjetas 



DISTRIBUIDORES PARA TODA ESPAÑA 


PEDIDOS 


FERRE -flñORET /.fl 


Tel. 93/ 250 84 40/ Contestador Aut, 
Escribir indicando la sección 
C/. Buenos Aires n.° 30 2 o 3 a 
BARCEL0NA-36 




















































Figura 4. 


Vista del interior del jovstick. 




distintas partes de la caja, para mayor 
comodidad del disparo. Fn tal caso 
deberá conectarse el segundo pulsa¬ 
dor en modo paralelo con el primero. 
Esto quiere decir que uno de los hilos 
que proceden del pulsador va a una 
borna del primer pulsador de fuego v 
el otro hilo al que ha quedado libre. 
La conexión al ordenador no sufre 
alteraciones. Los números que apare¬ 
cen en el extremo de los hilos indican 
el número de patillas a que deben ser 
conectados en el pon de control del 
ordenador, siempre por medio del 
conector tipo D. En el caso del C-64 
existen dos poris de control (el 1 y el 
2), pero el diagrama es exactamente el 
mismo. En la figura 2 se ha dibujado 
una vista del pon, en la disposición en 


que puede verse desde el exterior del 
ordenador. Conviene ser cuidadosos 
al soldar los hilos a los terminales del 
conector que ha de enchufarse al porp 
pues recordemos que tiene lugar un 
efecto similar al de un espejo si lo 
observamos desde la parte frontal. Lo 
más sencillo es hacer que el diagrama 
de la figura 2 coincida con el lado que 
contiene los terminales destinados a 
la soldadura. 

En la figura 3 se puede ver el 
jovstick que nosotros hemos elabora¬ 
do. Desde luego su aspecto difiere 
mucho de uno comercial pero funcio¬ 
na perfectamente. Por motivos de 
claridad, se dispuso un solo botón de 
fuego en el centro de la cruz que 
forman los de dirección, aunque no es 


el lúear .3 . . _ I n cuanto a la 

elección del :irv> . pulsadores no 
existe . \ . ... r uada, sirve 

cualquiera eu\o . . esté normal¬ 
mente ah cr:o • decíamos antes, 

hecho c-:. . _ z r.ancia. Siem¬ 

pre es fac: ble . r gan otro tipo 
de dispos:: . j. rr - . s: eso montaje 
mecánic o !ec:or un poco 

“manit.V _ p.nsará en có¬ 
mo me ci-eño. En tal caso 

que no dude cr L_cern rlo conocer 
para dr. . _ • .. . la revista. 

La to: ... r ' 4 ofrece una 

visión gener. ... -.ría el aspecto 
que ofrecen las soldaduras de los 
hilos ah - diiersi - pujadores. 

Las ñgur. 5 > representan las 
áreas pare:, r- a. esc.tema teórico 
tanto de \ o: I . m > C-64 (en la 
segunda), cu;. .r .. misión consiste 
en conoce: c . r. .h. otro lado del 
pon de ccrr.r r.r desde luego 
carece d. < : re - tire- prácticos en el 
montaje que no- vupa 

Construye 

tuJOYSTICK 

Una vez menudo e. ¡ v.stick ense¬ 
guida querremo- er como funciona. 
C omencemos por e \ ie 20. Después 
de haber leído la primera parte del 
artículo sobre joysricks, sabemos que 
hay que coru.g.ir. ' - registros de 

dirección c.- d. : >. c iocando infor¬ 
mación en ia> d:recc nes de memoria 
37139 y 37154. La primera línea del 
programa hace e>: L. información 
es depositad.-, eu . ariables A y B, 
que la toman . su ez de las direc- 


10 R*PEEK<56321) AND 15:REM###LEE EL í 
20 B=PEEK<56320> AND 15 ; REM##LEE EL 2 
30 PRINT ñ.:" ";B 

40 F1 =— C <PEEKC56321 ') RND X6')~Q) ■ REM##FUEG0 
50 F2=-(<PEEK<56320) RND 16)=0):REM**FUEGÜ 
60 PRINT F1;" ";F2 

70 FQRX-l TO 50:NEXTX 
80 GOTO 10 


l=Norte 

2=Sur 

4=0este 

3=Este 

5=Noroeste 

6=Su.roeste 

9*Noreste 

10-Su.reste 


Figura 5. Vista parcial del Vic 20. F1 


esquema teórico muestra donde terminan las conexiones del 


pon de control. 
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10 PQKE 37133,0:ROKE 37154,127 
20 flsREEKC37137) 

30 B*PEEK<37152) 

40 PRINT R; m ",B 
50 FOR X=1 TO 1000:NEXTX 
60 GOTO 20 


Figura 6. Vista parcial del esquema teórico del C-64. 


t encía de 2 y. por tanto, su equivale li¬ 


ciones destinadas al pon de control. 

La línea 40 realiza una operación OR 

lógica con ambos bvtes de informa- 
<_ . 

ción y en las líneas 50 a 90 se 
comprueba que botón ha sido activa¬ 
do. por medio de "máscaras” y la 
operación lógica AND. Obsérvese 
que cada uno de los números que 
aparecen entre paréntesis es una po¬ 


te en base 2 corresponde a uno 
solamente, dispuesto en diferente lu¬ 
nar del bvte. 

W m 

Una vez establecido si ha sido o no 
pulsado un botón el programa salta a 
una determinada dirección de memo¬ 
ria, donde se halla la parte que indica 
al ordenador, lo que debe hacer en tal 


supuesto. Como es lógico los núme¬ 
ros 100. 200. 300, 400 y 500 que 
aparecen en estas líneas son supues¬ 
tos. debiendo alterarse en función del 
programa que desarrollemos. La uti¬ 
lización en el C-64 es más sencilla. La 
información se deposita directamente 

Construye 
tu JOYSTICK 

desde el joystick en las direcciones 
56320. para el pon 2, y 56321, para el 
port 2. Lo único que resta por hacer 
es leer el que nos interese en el 
momento adecuado para el progra¬ 
ma. En la figura 8 aparecen las 
sentencias adecuadas, así como los 
valores proporcionados por la acción 
de cualquiera de los joystick. 



Protege tu Commodore con esta 

■*— i. ■■_ Una oferta especial y exclusiva 

para nuestros lectores 










Una práctica funda lavable y resistente, que protegerá del polvo 
y de otros deterioros a tu COMMODORE. 

¡Y que por ser una oferta exclusiva para nuestros lectores puedes 
conseguirla con un 25% de descuento sobre su precio real 
de venta! v' 

¡Apresúrate! Recorta y envía HOY MISMO 
este cupón a: 

COMMODORE MAGAZINE (FUNDAS) 

Bravo Murilio, 377 - 28020-MADRID 

Las existencias son limitadas 
¡No te quedes sin ella! 
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30 GÜTO3000 

50 PRI NT " nPlflWBJMMUlI 
PRINT"tM»»M»ÍI 
4 PRINT ,, :^ME>|iÍ»Í»»»Íl 

lüiiiii iiü*r 


CBM 64 


i¡ NIVEL DIFICULTAD" 


52 


"m 


56 PRINT 
58 PRINT 


ii 


" >ME!)Í»ÍÍÍÍÍI4D IFI c IL 
60 PRINT H MWMMM íiFULSE 


ii 


-1" 

FACIL" 

ni/ 0 OÍD ¡IM¬ 
PULSE <ESPACI0> PARA JUGAR" 



61 PRINT 

62 PRINT" 

64 PRINT"»» 

69 ND=1 

70 GET ND$ 

72 IF ND$="D ,, AND ND>1 THEN ND-ND-1 : GOTO 80 

74 IF ND$="F"AND ND<9 THEN ND=ND+1 : GOTO 30 

75 IFND$=" "THEN GOTO 95 

76 GOTO 70 

88 PRINT"liiE naill"; 

84 GOTO 70 
30 PRINT" 

34 GOTO 70 

95 ND=<ND-1>*100 

96 PRINT"^lPlE!Mt!»ÍÍKnF , REPfiRESE! !" 

97 PRINT"I»»IVAN A SALIR" 

98 PRINT"I»»LAS LETRAS" 

99 PRINT"»»»lsi! ! ! MENOR ICELAS !!!"• 

100 DIN X$<8,6> 

105 POKE 53281,9 : PÜKE53280 * 3 
110 l>0 • CA-0 : CF=0 : XP= 1734 
120 FÜR J=1 TO 6 
130 FÜR 1=1 TO 8 
140 LET X$<I,J>="Z" 

150 NEXT I-NEXT J 
200 J=INT<RND<1)»6+1) 

210 1=I NT C RND < 1 > #8+1 ') 

220 IF X$CI,JX>"Z" THEN GOTO 200 
230 READ X$ 

240 LET X$<I,J>=X* 

260 J =INTCRND < 1) *6+1> 

270 I = INT<RNDa>*8+l) 

280 IF X$(I,J>O n Z" THEN GOTO 260 
290 LET X$a,J>=X$ 

300 C=C+1 

310 IF C<24 THEN GOTO 200 

320 PR I NT u :lE!MBH!»Í»»Í»ir j 

340 FÜRJ=1 TO 6 

35G FOR 1=1 TO 8 

360 PR I NT" MUM"; X$<1, J >; 

365 TT=50 : GOSUB2200 
370 FORC*0 TO ND : NEXT C 
380 PRINT"II8R¡ 

90 NEXT I 




400 PRINT"II 
410 NEXT J 


\mm "; 


Memory es un programa para el 
Comniodore 64 , escrito por Francisco 
Roig Serra y que llega a nuestra 
revista desde Barcelona. Se trata de 
un juego que consiste en lo siguiente: 
en la pantalla van apareciendo, uno 
tras otro, 48 caracteres, cada uno de 
los cuales aparece repetido. A medida 
que van apareciendo son ocultados 
por un pequeño rectángulo. El juego 
consiste en memorizar la posición de 
los caracteres para posteriormente 
agruparlos en parejas, con el mínimo 
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420 PR.iNT"»rmcM>"; 

425 LET J=6 : LEI 1=1:LETTT-1000 
430 GET m 


número de fallos posibles. Para for¬ 
mar las parejas hay que mover el 
cursor mediante las teclas M, N y las 
teclas de cursor CRSR. Si los dos 
caracteres destapados coinciden, en¬ 
tonces desaparecen de la pantalla 
mientras se escucha un agradable 
sonido de felicitación. 

El juego acaba cuando se han 
formado 24 parejas de caracteres, 
apareciendo la calificación final en 
tanto por ciento de aciertos y el 
número de fallos cometidos. 
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440 IFR$= 
445 IFñ$= 
450 IFR$= 
455 IFR*= 

459 IFR$= 

460 IFR$= 
465 IFR$= 

469 IFñ$= 

470 IFR*= 
475 IFR$= 
480 IFR$= 


M <H>";•IFK>1THENX=X+1 : G0T0450 

OD"; : IFK>1THENX=X-1 : GOTO460 


. " RNDI <8THEN 1 = 1 + 1 : XP=XP+3’ : PRI NT “ 

."THENG0TO430 

, "RNDIM THEN 1 = 1-1 • XP=XP~3 : PRINT"II 
,"THENGOTO430 
N " RND J> 1T H E N X P=X P - 4 ü # 3 

N"RNDJ> 1THENJ=J-1 : PRINT" lili M ■■■nTKH> H ; : IFK>1THEHV=V-1 : G0T0469 
N"THENGOT0430 
M"RNDJ<6THENXP*XP+40#3 

N M RNDJC6THENJ=J+1 :pRIHT"lili HI ; • IFK> 1 THENV=V+1 : GÜTG480 

ITTHENGGTÜ430 

"RNDK>1RNDPEEK<XP> = 160THEN PRINT H III ;X$CI,J>;"M" i- GÜT0 900 
490 IFR$=" "RNDK<2ANDPEEK<XP> = 160THENPRINT"ni";X$(I,J >;" M" ; : X$=X$(I,J> : K=2 
500 GOTO 430 

900 FOR L=0 TÜ 100 •NEXT L 

910 IF X$=X$< I .■ J)THENGÜSUB 2000 : PRINT "ME lili "; : CR=CR+1 ; GOTÜ930 
920 I F X$OX$ i! I, J > THENGÜSUB2200 : PR I NT " lili " ; : CF=CF + 1 

930 FOR L=0TÜRB3í:X-1> 

940 IFX>0THENPRI NT" lili"; • XP=XP-3 
950 NEXTL 

955 FOR L=0TÜRBS<X+1> 

960 IFXC0THENPRINT 11 HUI" ¡ : XP=XP+3 
965 NEXTL 

970 FÜRL-0TORBS<V-1> 

980 I FV>0THENPR I NT " TTT.; : XP=XP-40*3 
990 NEXT L 

995 FÜRL=0TORBS<Y+1> 

1000 IFY<0THENPRINT " WWW";:XP=XP+40#3 
1005 NEXTL 

1010 IF X$=X$<I,J>THEN PRINT"3 Mal"; 

1020 IF X$OX$(I> J)THEN PRINT M BW »I M ; 

1025 LETI=I-X : LETJ=J-V 
1027 PR I NT " llllsfclD " ; 

1030 X=0 * Y=0•K=1 

1035 IF CR=24 THEN GOTO 1500 

1040 GÜTÜ500 

1500 calificación s n 

1510 PRINT : PRINT 
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1520 

1525 

1530 

1540 

1541 

1542 

1543 
1545 
154? 
1543 
1550 

1555 

1556 

1557 

1558 
1560 
2000 
2005 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2075 
2080 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
3000 
3002 
3O04 
3006 
3008 
3 0 1 0 

3011 

3012 

3013 

3014 


PRINT 



H 


PiiiiüFFlLLGS"; "¡i.,71"; CF 


PRINT-PRINTSPRINT 
PRINT:PRINT:PRINT 
PRINT:PRINT : PRINT 


ii 


PRINT"(RRRRRRK DE ACIERTOS: ",INT<<24/(2¿ 
F'R IHT : PRI NT : F'R I NT " 

PRINT "SU PARA OTRO JUEGO PULSE 0 
P0KE54296,15:P0KE54295,0 : RESTORE 
P0KE54278, O:P0KE54277,64+13 : P0KE54275, 33■ PP-2500 
GOSUB4008 

JJ=JJ+1:IFJJ=40 THENG0T01549 
GOTO 1543 
P0KE54296,0 

GET 0$ •' IF 0f<>"0"THEN GOTO 1550 
P0KE 5328.1 , f, 

P0KE54296, 15: P0KE54295,0: RESTORE 
GOSUE4000 

JJ=JJ+1:IFTJ-40 THENGOTO1560 
RUN 

W=54272 

PÜKE54295,0:P0KE54296,15 
POKEW+6,0: POKEVV+5,12 : POKEVV+1,200 
POKEVV+3,48 
F0RNH=1T04 

F'OKEVV+4,0 ; F'OKEVV+4, 65 
FORNM=1TO500 : NEXTMM 
NEXTNN 
F'OKEVV+4,0 
P0KE54296,0 
RETURN 

P0KE54295,0:P0KE54296,15 
VV=54272:P0KEVV+6,0:POKEVV+5,12 
POKEVV+1,20 : F'OKEVV+4, 129 
FGRNN=1T0TT : NEXTNN 
F'OKEVV+4,0 
P0KE54296,0 
RETURN 

PR I NT " 71" : Fl=0 

F'RINT":nl(!l9MHlilIl!>»»»»»K»Í»[E!l(|>I»ÍiiiFi GANE FOR" 

PR I NT" ;JRRRRRRRRRRRRRRi:BN~64" 

FOR1-0 TO 2000 : NEXTI 
F’R 1 NT " 53" 

POKE53280,9:P0KE53281,9 
P0KE54296,15 = P0KE54295,0 
V7=54272 

F'QKEVV+6,0 : POKEVV+5, 64+13 
POKEVV+3,99: F'F-2500 

t" 

ll 
II 


* ~ «¿HsT ^ 

** ** 


* ii 


V" 

• ■ 


3020 

PRINT 

"lint 

i 

•••• 

i • 

i 

•i 

• 

3021 

PRINT 

üiii» 

ii 

• 

•i i# 

i i 

i i 

• i 

3022 

PRINT 

'»»* • 

• 

••• 

• i • 

i i 

i i 

• 

3023 

PRINT 

"Pili 

• 

• 

i i 

• i 

ii 

i" 

3024 

PRINT 

"Pili 

• 

i 

i i 

• « 

i i 

i" 

* M 4 * 1 C 

nM-Jitl-j 

PRINT 

"Pili 

i 

iiii 

i i 

i 

i i 

i" 

3026 

GOSUB 

4000 







3028 

IFA=0THEN FORI 

=0TO3000 •• NEHTI 




3030 

FOR I 

=0 TO 

1 00 

:NEXTI 





3031 

IF ñ= 

7 THEN 

H= 

0: GOTO: 

3050 

\ 




3832 PRINT‘73" 
3Ü33 ñ=ñ+l 
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II 


3034 FORI=0 TO ñ 
3036 F'RINT"JQ" 

3038 HE'ÍTI 
3040 GOTIJ 3020 
3050 FORJ--0 TO 15 
3060 FOR1=55976 TO 56215 
3070 F’OKE 1, .J 
3080 NEKTI 

3085 IF J=3 THEH PRINT"«!M«i!»l(ÍÍÍP GOME FOR" 

3086 IF J=5 THEN F'RINT":íW***L:OMMÜDORE CBM 64" 

3087 IF J=9 THEN PRI NT "*»»»**»»* COPYRIGHT FRANCISCO ROIG. 1984." 

3088 IF J= 12 THEN F'R I NT " i?»#l(#irTODOS LOS DERECHOS RESERVADOS. 

3090 NEKTJ 

3091 GOSUB4000 

3092 GOTOS091 
3095 P0KE54296.. 0 

3100 F'R I NT " nW«?>*»HECES I TAS INSTRUCCIONES?" 

3110 GET S$ : IF S$="S"THEN GOTO 3120 
3112 IF S$=""THEN GOTO 3110 
3114 GÜTG50 
3120 PRIHT'TI" 

3130 F'RI NT "SIMPEN LA PANTALLA APARECERAN 24 PARES" 

3140 F'R I NT "(IDE CARACTERES OBSERVABLES SOLO POR UN" 

3150 F'R I NT "(PEQUEÑO LAPSO DE TIEMPO. " 

3160 PRINT"SPPPPIINTENTE MENORIZAR LA POSICION DE" 

3170 F’RINT"(ICADA CARACTER, PUES EL JUEGO CONSISTE" 

3180 PRINT"(EN DESTAPAR UNA POSICION CUALQUIERA V" 

3190 F'RI NT "«SEGUIDAMENTE LA POSICION QUE CONTIENE" 

3200 F'RI NT "(EL MISMO CARACTER." 

3210 F'RINT"S*MPP MEDIDA QUE USTED VA ENCONTRANDO" 

3220 F’RI NT "(PARES DE CARACTERES, ESTOS DESAPARECEN." 

3230 F'RINT"IPPP[«EL JUEGO TERMINA CUANDO SE HAN" 

3240 F'RI NT "(PALLADO LOS 24 PARES DE CARACTERES." 

3250 PR I NT" SMPPLÜS FALLOS SON CONTABILIZADOS." 

3260 F'RI NT ".«««»■ PARA CONTINUAR PULSE ESPACIO ■" 

3270 GET S$: IFSÍO" "THEN GOTO 3270 
3280 F'R I NT " 71" 

3290 F'R I NT" SIMBMISPARA MOVER EL CURSOR : " 

3300 F'R I NT" (il-:-" 

3310 F'RINT"nra««i|i»ÍPORTE.gftfíl" 

3320 F’RI NT" KPMMSUR.¡fifi" 

3330 F'R I NT" SMPPESTE.¡¡>fi" 

3340 PR I NT" ÍMPUOESTE.SKIil" 

3345 F'R I NT" SMSMPARA DESTAPAR PULSE <ESF'ACIO>" 

3350 F'RINT 11 ílfTílelíMOlSÜ PARA CONTINUAR PULSE ESPACIO ■" 

3360 GETS$ : IF S$<>” "THEN GOTO 3360 
3370 GOTO50 

4000 READWW : IFWW=0THEN GOTÜ3095 

4010 RR= I NT < WW/10 > • QQ= < WW-10*RR > *F'P 

4020 P0KE54273, QQ/256 •' P0KE54272, QQAND255 

4030 P0KE54276,0:P0KE54276,65:FORNN*1TO70#<RR+1>:NEXTNN 

4040 RETURN 

9990 DATA 25,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,64,3,3,5,4,4,5,3,3,5,4,5,6 
9995 DATA 15,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,94,0 
10000 DATA A, B, C,7, E, F, G, H, 1,5, K, L, M, 4,0, P,-3, R, S, T, U, 2, X, Y 
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Para participar en el concurso 
mensual de nuestra revista, Lorenzo 
López Martos nos envía, desde Barce¬ 
lona, este juego para el C-64 titulado 
LABERINTO DE PICAS. El j uego 
consiste en desplazarse por un intrin¬ 
cado laberinto “comiéndose" todas 
las picas que aparecen desperdigadas 
en él. Las picas son uno de los cuatro 
símbolos de la baraja francesa (rom¬ 
bos, corazones, tréboles y picas). Para 
limpiar el laberinto se dispone de un 
tiempo limitado, que puede ser de dos 


minutos, si se elige el nivel de dificul¬ 
tad fácil, o sólo de uno en el nivel 
difícil. Cada vez que se acaba con 
todas las picas de un laberinto, dentro 
del tiempo disponible, hay que prepa¬ 
rarse para empezar de nuevo, ya que 
aparecerá una nueva pantalla con dos 
picas más que en la anterior. Cuando 
se completa una pantalla antes de 
transcurrido el tiempo, los segundos 
sobrantes se acumulan para poderlos 
emplear en la siguiente pantalla. El 
movimiento por el laberinto se con- 
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";ññ•RETURN 


1 REM 

2 REM * * 

3 REN * LftBERINTÜ BE PICfíS * 

4 REM * MEMORIA:3.7 KBVTES * 

5 REM * (O SERGIO LOPEZ * 

6 REM * * 

7 rem ***** 

8 POKE 54296,15:GOSUB i0000:GOSUB 20008 
3 GOTO 20 

10 REM ***** SUBRUTINA BEL TIEMPO ***** 

11 TP$=STR$ <: TA-VAL < TI $ > > 

12 PRINT n aa TIEMPO ; "i 

13 IF VAL<TP$X=0 THEN GOTO 1000 

15 PRI NT " a»»»ÍP»ÍÍÍP»»»»Í»»»FUNTÜS 

¿0 BEF FN PO<A)=A+JX+JV*40 
30 POKE 198,0 
40 AA=0 : S= 1024 

50 POKE 53280,6 : POKE 53281,6 : PRINT "T 
33 - 

1O0 REM ******* CREAR LABERINTO ****** 

•101 : 

105 BIM A<3) 

110 A < 0 > =2 : A(1 > =-80 • A 2 > =~2 • A < 3 > =80 
120 A=S+541 
130 PRINT "IT’; 

140 FOR JV=0 T0 24 

153 FOR JX=0 T0 38 

155 POKE FN PÜ<1824),160 

157 NEXT JX 

160 NEXT JV 

210 POKE A,4 

220 J=INT <RNB<1)*4 >=X=J 

230 B=A+A(.J) : IF PEEKÍB) = 160 THEN POKE B, J : F‘0KE A+A(J)/2, 
240 J=< J+l )*-< J<3) : IF JOX THEN 230 

250 J=PEEKCA>:POKE A, 32:IF J<4 THEN A=A-ACJ> : GOTO 220 
233 : 

300 REM ** DIRECCIONES BE MOVIMIENTO ** 


20 



CBM 64 


trola desde el teclado, mediante cua¬ 
tro teclas para las cuatro direcciones 
posibles de movimiento. En las ins¬ 
trucciones incluidas en el programa, 
que se pueden leer nada más escribir 
RUN, se indica cuáles son estas teclas 
entre las explicaciones generales del 
juego. Enhorabuena al autor de este 
programa que esperamos sea del 
agrado de todo> nuestros lectores. 
Ah, se nos ohadaba, el jugador viene 
representado en el laberinto por un 
sencillo asterisco. 


32 ; A=B : GOTO 220 
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302 

303 

304 

305 
310 
320 
330 
34Ü 

345 

346 

-~| .1 *7 

o 4 f 

348 

349 

350 
360 
3 7 0 
330 

400 

401 

402 

403 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 
420 
430 
440 
460 
465 
470 
430 


H C 0) =1 : h (. 1 > =40 : H < 2 > =~ 1 • ñ < 3 ) =-40 

REM mm posiciüNH i.ñs picñs ***** 

NP=10 ; PICñS~NP 
FÜR 1=1 TO HP 
JV=INT < RND<0 >*25 > 

JX=INT<RND<0>#38) 

IF PEEKCFN PÜ<S>>=32 THEN POKE <FN F'OCS) >, 65: GOTO 345 

GOTO 310 

NEXT 

REM *IHICIñLIZA EL TIEMPO DE JUEGO* 

IF NP>1@ THEN Tñ=Tñ+DI:GOTO 350 
TA=159 

REM **** POSICIONR RL JUGADOR **** 

IF NF'>10 THEN PO=POX : GOTO 405 
JV=INT( RND(0 > *24 > 

JN=INT(RND(0)*38 > 

IF PEER (FN PO<S> > =32 THEN POKE < FN F'O<S > >.. 42: PO=FN F'O < S "> '■ GOTO 405 
GOTO 360 


■"•POKE 198,ü 


REM **** INICIO DEL JUEGO ******** 

PRINT"aa PULSE IJNR TECLfi F'RRR EMPEZAR 
GET R$ ; IF R$="" THEN 406 
PRINT"íía ■" : F'F-0 

IF HF-10 THEN TI$="000000":GOTO 41R 
TI $=TF'f 

IF PICñS=0 THEN 5@0 

REM ******** MOVIMIENTO ********** 

GET m ■GOSUB 10:IF PEEK(197>=0 THEN 460 
IF A$="THEN F’P=0 
IF H$="fi" THEN F'F-1 
IF H$="L" THEN F'F-2 
IF ñí="Q" THEN F'F-3 

po=po+a<pp) 

IF PEER i. F'O > =65 THEN Afl=RR+100 •' P I CñS=F' I CAS-1 '• GOSl IB 10 : iTijRI. IB 9000 

IF F'EERí:F'O) =32 OR PEEKCPÜ>=65 THEN POKE. F'0,42 : POKE F'O-AÍPP ). 32 : GiTTO 410 
Pü=PU-H ( PP > : IjQTÜ 410 
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Viene de la página anterior 

500 NF-NP+2:PICAS=NP : POX-PÜ:TPi=TI$■GOTO 305 
933 ■ 

1000 rem ******** fin de partida **** 

100 1 • 

1005 PRINT"aailsMeMsIeiMíJikiiüikiiIISE TERMIN0 EL TIEMPO*" 

1010 PRI N T" asTí»»fi»»»»i!!l»»»»»»Mi!kilkBk#iiSITI 11 ERE OTRñ PRRTIDfi 
1020 I NF'IJT " WEIIÜHI"REÍ 
1030 IF LEFTiCREi,1)="S" THEN RUN 
1040 F'RINT "73" : END 

C¡ Cj 'Zj Cj ; 

3000 rem ******** sonido ************ 

9001 : 

9005 F'OKE 54277.' 3 : F'OKE 54278,0 
901 @ F’OKE 54273,120: pQKE 54272,32: F'OKE 54276,33 
9020 FOR T=1 TO 25 : NEXT : F'OKE 54276,32 
9030 RETURN 

yyqq ; 

10000 REM ******* INSTRUCCIONES ***** 

1 000 1 

10002 F'RINT "73" 

10010 F'RINI"ükikVittKitkklZ^LFlBERINTO DE PICAS" 

10020 F'R I NT "»?»»M»IQU I ERE INSTRIJCCIONES " i 
10030 I NF'UT " , Ri 

10040 IF LEFTÍ(Ri,1>="S" THEN GOTO 10060 
10050 RETURN 
10060 F'R I NT " 

10070 F'RINT"H SU JUGADOR ES EL *. EL JUEGO CONSISTE" 

10080 F'RINT" «EN ELIMINAR TODAS LAS PICAS DEL LABE-" 

10090 F'R I NT" (IF I NT O EN MENOS DE DOS MINUTOS." 

10100 F'RINT"» EN LA PRIMERA PANTALLA HAV 10 PICAS." 

10110 F'RINT"» EN CADA UNA DE LAS SIGUIENTES HAV" 

10120 F’RINT"JUDOS PICAS MAS QUE EN LFl ANTERIOR." 

10130 F'RINT"» POR CADA PANTALLA TIENE DOS' MINUTOS" 

10140 PRINT"«EXTRA, CUNO SI SE ELIGE DIFICULTAD D>" 

101510 F'RINT "«QUE SE LE SUMA AL TIEMPO QUE LE QUEDABA' 

10160 F’RINT"kVVVttkVkklSDShJ-'ULSE UNA TECLA PARA SEGUIRlil 
10170 GET Aí : IF Ai="" THEN GOTO 10170 
10180 F'R I NT" 7HDWÍÍPÍMÍMÍ>lílHLRBERI NT O DE PICAS" 

10190 F'RINT"»» PARA MOVER SU JUGADOR UTILICE LAS SI-" 

10200 PRINT"MGUI ENTES TECLAS:" 

10210 PRINT"MWÍM»»Í*ÍÍ»»**»7-! - ARRIBA" 

10220 F'RINT"J!»ft**MRkÍÍ*IÍ»klA - ABAJO" 

10230 PRINT"»*****M»*»»»»I : - DERECHA" 

10240 F'RINT"»Í*»»»»»Í*Í*Í»*L - IZQUIERDA" 

10243 F'RINT"» PULSAR SOLO PARA CAMBIAR DE DIRECCION" 

10245 F'RINT"» PARA EMPEZAR ESPERE A QUE SE CREE" 

10247 F'RINT"MEL LABERINTO." 

10250 PRINT"M»»»*ISkPULSE CUALQUIER TECLA PARA EMPEZAR" 

10260 GET Af : IF A$="" THEN 1O260 
10270 RETURN 
19339 : 

20000 REM m ELECCION DE DIFICULTAD M 

20001 ; 

20010 INF'UT " m»»»»»»»»»i®HD IFI CULPAD C F=FAC I L/D=D IFICIL> "; V$ 
20020 IF LEFTÍCVi,1> = "F" THEN DI=200 = RETURN 
20030 IF LEFTÍC Vi,1> ="D" THEN DI = 100:RETURN 
20040 GOTO 20000 
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Desde Barcelona, Miguel Ortega 
V. rales, envía a concurso este intere¬ 
sante programa para dibujar gráficos 
de barras en tres dimensiones. 

El programa pregunta en primer 
ugar por el color del marco y del 
papel. A continuación hay que intro¬ 
ducir los valores correspondientes a 
cada una de las barras. Hay doce 
barras por hilera, va que se supone 
que en cada hilera se representan los 
resultados de un año. de modo que 
cada una de las doce barras se corres¬ 
ponde con uno de los meses del año. 


Los valores que se asocian a cada uno 
de los meses sólo pueden ir de cero a 
20 . ya que así está previsto en el 
programa. 

Después de introducir los valores 
correspondientes a los doce meses de 
la primera fila, se procede a introdu¬ 
cir los valores correspondientes a los 
colores de cada una de las barras, 
teniendo en cuenta que el primer 
color introducido se corresponde con 
la barra situada más a la derecha. 

A continuación se introducen los 
doce valores que corresponden a la 


representación del segundo año. con 
sus colores respectivos y por último 
hay que hacer lo mismo con el último 
año. que es el que viene representado 
por las barras más próximas a noso¬ 
tros. Miguel, el autor del programa, 
aconseja que tanto para el color del 
fondo como para el color del papel se 
escoja el negro, con el fin de obtener 
los mejores resultados posibles v po¬ 
der asombrar a nuestros a mi eos con 
unos maravillosos gráficos tridimen¬ 
sionales y a todo color con nuestro 
Commodore 64. 


\-VERO o 
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1 REM**** ***** 

2 RLM**** GROF ICUS oí» ***** 

3 REM**** ****;* 

4 REM*** POR MIGUEL ÜRTEGñ MOROLES *** 

5 REM*** *** 

6 REM*** C/INFANTE MARTIN 1,7, i *** 

7 REM*** *** 

8 REM*** TERROSSñ / BORtELuNO *** 

3 REM**** **** 

1 0 POKE53280,0 ; F0KE5328i,U : 0=1743 1 3=i354:Z-54272 

20 PRINT"ZfiiiiESCÜ JO EL COLOR DEL MORCO" : PRINT" SÜÜI 

21 PRINT : PRINT”© - NEGRO" ; PRINT"i - BLONCO" : PRINT"2 - ROJO" : PRINT"3 - CYON" 

22 PR INT 11 4 - PURPU RO M : PRINT"5 - VERDE l!: PR INI 51 6 - HZUL " : PR INT " 7 - OMORILLfi" 

23 PR I NT " TIuTni]" • PR INTT OB C 20 > " S - MORON JO J! : PR INTTOB < 2Ü > " 3 - MORRON " 

24 PR I NTT OB C 28 >" 10- ROJO CLORO" * PRINTTOB<28> “11- GRIS UNO" : PRI NTTOB <20 > 

25 PR IN i ” 12- GR IS DOS " : PR INTTOB(20 > 13- VERDE CLORO PR I NTTOB C 20 > 

26 PRINT”14- HóUL CLORO" : PRINTTOB < 20>"15- GRIS TRES" : iNPUTN 

27 PRINT"íiiMESCOJñ COLOR DEL POPEL" : PRI NT" ÜMÍIS ■" -INRIITV 

80 DIMH < 12 > : DIMB ( 12> - DI MC < 12 > : DIMD í i 2 > • DI ME < 12) : DI MF í 12 

83 POKE53230,6 

30 PRINT"7331NTRGDUZCH CANTIDADES MENORES O IGUALES O 20 PORO LH PRIMERO FILO"" 

32 FORO- í TO12 *♦ I NPUTfi < IJ > •* NEXTU 

33 PRINT"ESCRIBO LOS COLORES CORRESPONDIENTES 

34 FORU-1TO12 : 1NPUTB(U >•NEXTU:P0KE53280,2 


o 


35 PRINT"□aiNTRODUZC 

36 F0R0=1Tu12 : INrUiC 


OCONTIDhDEo MENORES O IGUOLES O 2i PORO LH SEGUNDO FILO* 

(U > : NEXTO 

37 pRiN T :: EoURIBO LOS COLGRES CORRESPÜNDIENTE3'' 

38 FORO-1TOi2 : INPUTDC O>•NEXTO•POKE532S0,5 

33 PRINT"LJSINTRODUZCO CONTIDODES MENORES O IGUOLES O 24 PORO l H TERCERO FILO" 

100 FORU-1TO12-1NPUTE<U>:NEXTU 

101 PRINT"ESCRIBO LOS COLORES CORRESPONDIENTES OL TERCER ONO" 

102 PORU=1T012 : INPUTr(U> ; NEXTU ; PRINT" □" : POKE53230,N : P0KE53281,V ; FORI=QT02500 
163 NEXT ■ PR I NT 55 Z¡" - GOSÜB1040 : GÜSUB2000 1 END 

1037 REM 

1038 REM * DIVISIONES * 

1033 REM 

1040 FORR=1028T01788STEP40 ; PÜKER+Z,i2 : POKER,73•NEXTR 

1041 h ÜRR=1060T0182UbTEP4M•FUKER+Z,i 2 ; PuKER,80 : NEXTR 
í042 FORT=1183TÜ1213 : PGKET+Z,12:PQKET,33•NEXTT 

1043 PÜRT=1383T01413-PGKET+Z,12-POKET,39:NEXTT 

1044 FORT-1583T01613;POKET+Z,12•POKET,99 : NEXTT 

1 ü 46 PUKE1185+Z, 12 1 POKE i 185,36 • PGKE1186+Z ■ i 2 ; POKE1106.51 : F'iTRE 1187+Z ■ i 2 
1047 POKE1 i87,48 

i U48 POKE 1385+Z ■ 12 ; POKE i 385,36 1 POKE 1386+Z .< i 2 : POKE 1386, 50 ; POKE 1387+Z • 12 
1043 POKE1387,48 

1050 POKE i 535+Z, i 2 • POKE i 585,36 : POKE í 586+Z .12- F’OKF 1586.40: POKE i 587+Z. 12 
1851 POKE1587,48 

1tí52 FUKL1785+Z,12 : P0KEl785,36 : PÜKE1787+Z,12 : POKE1787,48 

1036 REM 

1037 REM COLUMNAS FILO! 

1038 REM 

í O33 hOKU—1Iü12 


i! 


ii 
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Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador VIC-20. 




COMMODORE 64. 


Diviértase con ellos y, además, ahorre dinero con esta oferta única y exclusiva para los 
lectores de esta revista. 


AMBUSH 



HIDEOUS BILL 

¿Está Bill (es decir, tú) dispuesto a 
luchar contra los gigantes para 
salvar a Greta, su (tú) único y 
verdadero amor? Si no lo logras, 
será comida por las hormigas. Y no 
olvides el peligro del barro venenoso 
a no ser que lleves contigo una 
tableta de antídoto. Puedes valerte 
de los arpones, pero durarán poco. 
Rompiendo paredes abrirás caminos 
para la fuga. Al final, el amor y una 
sorpresa. 

Precio: 1.550 ptas. 


Estás pilotando una nave espacial y 
tienen que cargar combustible 
de una nave nodriza. En el camino 
serás atacado. Puedes utilizar tu 
cañón de rayo láser, pero cuando un 
atacante es alcanzado no muere: se 
divide en dos y tu problema se 
multiplica. No acaban allí tus 
dificultades: tienes que esquivar 
(o destruir) sus bombas de protones. 
Hay siete, ¡siete! oleadas de 
enemigos. Tal vez te convenga 
atracar en la nave nodriza para 
coger un cañón láser más potente. 
Precio: 1.550 ptas. 


BITMANIA 


FALCON PATROL 


Sorpresa. Estás dentro del bus, da 
datos de tu 64 y debes batallar 
contra un,aluvión de neuronas. ^ ^ 
Tu tarea, alcanzar el núcleo del yjr- 
sistema. Pero para defenderse a sí 
misma la CPU envía contra tí sus V* - 
ejércitos de bits. Tú puedes & 

•* yf rr? destruirlos, pero cuando lo 

a 'TT? y 0 * ^ consigues se transforman en pods, 

y^ 1: que te impiden avanzar al siguiente / 

I CZZZZZZ mvel. Y ademas, cada 8,5 segundos 

la CPU enviará otro bit para 
reemplazar a cada uno destruido. Á 
Si tienes templados los nervios, no 
caerás en el pánico. 
Precio: 1.550 ptas. 

t 

Recorte y envíe este cupón HOY MISMO a: ^ ■“ m 

EMFODIS, S.A. ( Krv _ 

Bravo Murfflo, 377-5. °-A I f I Mjf 

28020 MADRID I V Ur\, 


¡!^ Como único superviviente de la 
patrulla Halcón, te toca a tí 
conseguir que los reactores 
atacantes no destruyan las 
instalaciones petroleras y tus 
bases de aprovisionamiento. Estás 
armado con cien misiles y un radar 
muy sofisticado en pantalla. 

Si te quedas sin combustible, podrás 
aterrizar verticalmente, pero 
mientras estés en tierra serás 
vulnerable a la metralla. 
Cuanto más tiempo sobrevivas, más 
enemigos vendrán a por tí. 

Precio: 1.550 ptas. 


Envíenme a mi domicilio, al precio de 1.550 Ptas. cada una, más 95 Ptas. de gastos, la cassette o 
cassettes que le indico a continuación, marcando con una (X) en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.550 Ptas., lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.650 Ptas. más 95 Ptas. por gastos de envío). 


□ HIDEOUS BILL □ AMBUSH □ FALCON PATROL q BITMANIA 

| | Las 4 cassettes, en las ventajosas condiciones de AHORRO para mL(4.650 Ptas.). 

El importe lo abonaré: 

POR CHEQUE LJ CONTRA REEMBOLSO _ CON TARJETA DE CREDITO □ 

American Express Q Visa O Interbank IH Fecha de caducidad _ 


Usted puede comprar cualquiera 
de estos cassettes a su precio 
individual de 1.550 Ptas. I 
Pero también puede adquirir el J 
lote de 4 por sólo 4.650 Ptas. M 
k Y AHORRARSE 1.550 Ptas. JB 
T O sea, cuatro cassettes por el 
precio de tres. Aproveche-esta ' 
oferta limitada. jM 


Número de mi Tarjeta 


Nombre 


Dirección 


Ciudad 


Provincia _ 

Cada envío llevará 95 Ptas. en concepto de gastos 
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CAPITULO 2 


EL 

MISTERIO 

DEL 


En la primera parte de este artículo 
veíamos como, el ordenador tomaba 
las líneas escritas en BASIC y trans¬ 
forma las palabras clave, que contie¬ 
nen en valores equivalentes y ocupan 
un solo byte, llamados token. Poste¬ 
riormente, el intérprete los reconoce, 
ejecutándolos de manera más rápida 
que si la palabra hubiera estado 
almacenada con su longitud real. 

Una vez más, al diseñar los siste¬ 
mas informáticos, los proyectistas 
imitan a la naturaleza. Así, el orde¬ 
nador cuando lee un programa nos 
imita a nosotros mientras leemos esta 
página. Comienza desde el principio, 
leyendo letra por letra (byte por 
byte), incluyendo a los espacios en 
blanco, interpretando el significado 
de cada agrupación de caracteres o 
carácter individual (léase también by- 
tes, byte), hasta llegar al final. 

Cuando damos la orden de RUN, o 
presionamos Return después de te¬ 
clear una línea sin numerar, el orde¬ 
nador lee una línea completa, comen¬ 


zando por la de menor numeración, 
pasando a la siguiente una vez inter¬ 
pretada y ejecutada ésta. Puede ocu¬ 
rrir que no pase a la siguiente línea, 
sino a otra indicada por GOSUB o 
GOTO. 

La línea resulta leída por orden, 
desde el comienzo al fin, exactamente 
igual que haríamos nosotros. 

Un programa se almacena en la 
memoria del 64 ó el Vic 20 de manera 
similar a como escribimos un texto en 
un folio de papel, utilizando para ello 
el área destinada a los programas 
BASIC, comprendida entre las direc¬ 
ciones 2048 ($0800) y 40959 (S9FFF). 

Sigamos viendo qué ocurre cuando 
se teclea el comando RUN (seguido 
por Return), el sistema operativo lo 
interpreta como un comando directo 
(no lleva número de línea) y busca en 
su lista de palabras reservadas, para 
encontrar la dirección de la subrutina 
que ejecuta este comando. Finalmen¬ 
te es localizado en la dirección hexa- 
decimal $A871. Como primeros pa¬ 


sos. el comando pone todos los pun¬ 
teros a comienzo del programa (luego 
veremos qué significa esto), restau¬ 
rando también todos los punteros de 
subrutina y datos. 

Como decíamos antes, se busca la 
primera línea de programa. Ahora 
ha\ que leerla > para ello se sigue un 
procedimiento, exactamente igual al 
que rige la lectura de una línea de 
texto impreso. De cara a esta fase, 
Commodore ha dispuesto en sus or¬ 
denadores una útil rutina bautizada 
como CHARGET, que es una abre¬ 
viación de las dos palabras inglesas 
CHARacter GET, o lo que es igual, 
"‘consigue un carácter”. Esta rutina, 
escrita en código máquina, forma 
parte del intérprete, pero no todo él 

está contenido en la ROM. En el caso 
de esta rutina ocurre una cosa pecu¬ 
liar. En un principio se halla conte¬ 
nida en la ROM, entre las direcciones 
58274 ($E3A2)y 58297 ($E3B9), pero 
con ayuda de otra rutina es copiada 
en la página cero del 64 (direcciones 
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de memoria comprendidas entre cero 
y 255 ó $00 y $FF). La razón es 
simple: los datos contenidos en la 
ROM son inalterables. Sin embargo, 
mientras utilizamos CHARGET exis¬ 
ten algunos bytes de la rutina que 
deben ser alterados, durante la inter¬ 
pretación de las sentencias BASIC; 
por ello se hace necesaria la utiliza¬ 
ción de memoria RAM. La copia de 
CHARGET desde la memoria ROM 
a las direcciones 115 ($73) a 138 ($8A) 
se realiza durante la inicialización del 
sistema, una vez que conectamos el 
ordenador. 

Estos bytes a los que acabamos de 
aludir son bautizados como punteros 
y su función no es otra que la de 
apuntar.Su misiones algo similar a lo 
que hacíamos cuando aprendimos a 


leer, señanlando con el dedo la si¬ 
guiente letra de la línea que estábamos 
interpretando. 

En la rutina CHARGET, el punte¬ 
ro es conocido como TXTPTR (TeXT 
PoinTeR) o puntero del texto BASIC, 
formado por dos bytes, pudiendo así 
"apuntar” hacia cualquiera de las 
direcciones que debe interrogar. 

TXTPTR utiliza las direcciones 
$7A y $7B, conteniéndose en ellas 
cual es el siguiente carácter del pro¬ 
grama en BASIC que debe ser leído. 
Como de costumbre, en la primera 
dirección se almacena el byte de 
menor peso y en el siguiente el de 
mayor. 

Antes de pasar a describir en deta¬ 
lle la rutina CHARGET, veamos algo 
más sobre el mecanismo que sigue el 


■ 


intérprete para que el programa vaya 
siendo ejecutado. 

Una vez tomada una línea (el 



SERVICIO DE EJEMPLARES ATRASADOS 



Complete su colección de COMMODORE MAGAZINE. 

A continuación le resumimos el contenido de los ejemplares aparecidos 
hasta ahora. 


Núm. 1 - 250 Ptas. 

Análisis de ia nueva serie 700/Calc result, a fin de 
cuentas/Mas potencia con Victree/Cómo adaptar 
cualquier cassette/Juegos y aplicaciones para 
VIC-20 y CBM 64. 

Núm. 2 - 250 Ptas. 

CBM 64 en profundidad/Superbase 64: 
el ordenador que archíva/Juegos, trucos 
y aplicaciones. 

Núm. 3 - 250 Ptas. 

Magic DesK. el despacho en casa/Herramientas 
para el programado/lnterfaces para todos. 


Núm. 4 - 250 Ptas. 

El 64 transportable revisado a fondo/lnterface 
RS 232 para el VIC-20/Juegos/EI fútbol-silla en su 
salón. 

Núm. 5 - 250 Ptas. 

Programas, juegos y concurso/Londres. Quinta 
feria Commodore/Basic, versión 4.75. 

Núm. 6 - 250 Ptas. 

El misterio de! Basic/Lápices ópticos para todos/ 
Concurso, juegos, aplicaciones. 


Corte y envíe este cupón a: COMMODORE MAGAZINE 
Edisa-J.ópez_de Hoyos, 141 - 28002-MADRID 

, r SERVICIO DE EJEMPLARES ATRASADOS 

| Ruego me envíen los siguientes ejemplares atrasados de COMMODORE MAGAZINE: 


El importe lo abonaré: 

Contra reembolso o Adjunto Cheque □ Con mi tarjeta de crédito □ 
American Express □ Visa □ Interbank □ Fecha de caducidad: 

Número de mi tarjeta. I 1 1 1 i 1 1 1 1 I I I I 1 1 1 


NOMBRE_ 

DIRECCION_ 

CIUDAD_D.P. 

PROVINCIA_ 
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intérprete sabe que es una línea nue¬ 
va. Todo lo que va después de un cero 
lo es, como vimos en el capítulo 
anterior) el intérprete no se fija en los 
primeros cuatro bytes, pues sabe que 
se trata del puntero que indica dónde 
se sitúa el comienzo de la siguiente 
línea y del número de la línea presen¬ 
te. TXTPTR apunta directamente al 
primer byte de la sentencia. El intér¬ 
prete a su vez espera encontrar un 
token, pero podría ocurrir que no lo 
hubiera, suponiendo que se trata de 
un LET que, como sabemos, en esta 
versión del BASIC puede ser omitido. 
A continuación busca la expresión 
que acompaña al token, para decidir 
qué es lo que debe computar el 
ordenador, recurriéndose a otra ruti¬ 
na que se llama Evalúate Expresión y 
está situada en la dirección hexadé- 
cimal $AD9D. Su trabajo consiste en 
evaluar la expresión, sea numérica o 
una cadena, que hay escrita desde la 
dirección que alberga TXTPTR hasta 
el primer carácter delimitador que 
encuentre, sea un punto y coma, 
comillas, un cero, dos puntos, parén¬ 
tesis, etc. 

Ocurre que en ninguna de las 
versiones del BASIC de Commodore 
está prevista la comprobación de 
sintaxis durante la introducción del 
programa, por lo que pueden escri¬ 
birse sentencias que carezcan de sen¬ 
tido. Es durante la ejecución del 
programa cuando se U.Qva a cabo este 
proceso. Puede existir un error de 
sintaxis en la escritura de una palabra 
clave o en la expresión que le acom¬ 
paña. Esto va realizándose a medida 
que CHARGET va desmenuzando la 
línea. Igualmente, una vez ejecutada 
la sentencia y devuelto el control al 
intérprete, éste comprueba si a conti¬ 
nuación hay un cero, que indica el 
final de la línea, o dos puntos, que 
indican el final de una sentencia, 
produciendo un error de sintaxis en 
caso contrario.' 

Recordemos el proceso: el intérpre¬ 
te sabe que se encuentra ante un tokem 
siempre que el byte sea mayor de 128, 
a no ser que se encuentre formando 


parte de una cadena, que irá entre¬ 
comillada. Posteriormente, como de¬ 
cíamos antes, localiza la rutina de 
ejecución correspondiente a ese to¬ 
ken, pasándole el control a la misma, 
que decidirá sobre lo que tiene que 
hacer y dónde debe buscar la infor¬ 
mación necesaria. Posteriormente de¬ 
vuelva el control al intérprete que 
localiza la siguiente sentencia, situada 
én la misma o en otra línea. En el 
segundo caso, se localiza la nueva 
línea, mediante la subrutina de bús¬ 
queda de línea. 



Entremos ya en la descripción del 
funcionamiento detallado de la rutina 
CHARGET, que dispone de dos pun¬ 
tos de entrada, uno es la propia 
CHARGET, que incrementa a 
TXTPTR para indicarle cuál es el 
próximo carácter a leer, y el otro es 
CHARGOT (Carácter obtenido), que 
lee el carácter y no afecta al cotenido 
de TXTPTR. Decíamos antes que 
cuando comenzamos a ejecutar un 
programa, el intérprete se encarga de 
que TXTPTR apunte hacia el co¬ 
mienzo del programa. 

En este momento es conveniente 
fijar la atención en la rutina escrita en 
código máquina en la figura 1. No es 
ni más ni menos que nuestra vieja 


conocida CHARGET. Una impor¬ 
tante misión que lleva a cabo es la de 
ignorar los espacios en blanco que 
introducimos cuando escribimos una 
línea de programa. Es fácil compro¬ 
bar que éstos no afectan para nada a 
la correcta ejecución de la línea, tanto 
si hay de más como si los omitimos 
totalmente. 

Entre las direcciones $73 a $77 se 
lleva a cabo la operación de actuali¬ 
zar el puntero existente en las direc¬ 
ciones $ 7 A > S~B. Su mecanismo de 
funcionamiento es el siguiente: E6 7A 
incrementa el byte de menor peso del 
“puntero de caracteres". A continua¬ 
ción DO 02 comprueba si este byte de 
menor peso es igual a 255 ($FF) y si la 
respuesta es afirmativa, pasa a la 
siguiente orden. E6 ^B, que incremen¬ 
ta el byte de mayor peso situado en 
$7B. En caso contrario salta dos bytes 
hacia adelante, pasando directamente 
a CHARGOT. donde toma el carác¬ 
ter situado en la dirección contenida 
en el puntero referida al texto fuente 
(TXTPTR), que siempre va siendo 
incrementado en los pasos anteriores 
del programa. 

CHARGOT se ocupa de cargar en 
el acumulador del microprocesador el 
bvte contenido en la dirección de 
memoria indicada por los bytes $7A y 
$7B (TXTPTR). a partir del cual es 
comparado con 3A. byte correspon¬ 
diente al carácter dos puntos (:), 
saltando al final de la rutina en caso 
afirmativo, pues ha terminado la 
presente sentencia. De no ser así. se 
procede a comparar el carácter del ■ 
texto BASIC con el byte $20, cuyo fin 
es determinar si estamos ante un 
espacio en blanco, si es afirmativo, 
volvemos al principio de la rutina 
CHARGET. obviándose de esta ma¬ 
nera el espacio. Después se activan 
los tlags para según que tipo de 
carácter, acabándose de ejecutar la 
subrutina, con 60 (RTS = vuelve de la 
subrutina). 

La operación de esta rutina se 
repite una y otra vez, hasta que todo 
el programa ha sido barrido, desde el 
principio al fin. 
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Aclaración 


En el listado del MON64, publica- 
¿c en el número anterior, existe un 
error que impedía obtener un volcado 
ec la memoria en impresora. Para 
' iucionarlo seguir estos pasos: 


1) Cambiar la línea 745 por: 

745 IF PEEK (+197) = 1 THEN 
ME=AC 

2) Cambiar la numeración de la 
línea 7340 pasándola a 7347. 


3) Cambiar la numeración de las 
líneas 700 y 701 pasándolas a 7340 v 
7345. 

4) Borrar las líneas 700 y 701. 


640 GOSUB7300 

680 IFA$="M"THEN 770 

705 FORME=CM TÜ RC 

710 IFHX=1THEND=ME:GOSUB5500 : P$=H* ‘ GOTO720 
715 RUSTRÍ (ME > 

■“ 0 pp J NTPÍ J " " ; 

730 CsREEK(ME):IFHX~1THEND-C:GOSUB5500•C:GOTÜ740 
735 C$*STR$<C) 

740 PRINT CS 

745 IFF'EEK (197)®1THEM ME=AC 

746 IFREEK(197 > «60THEHGGTO746 
750 NEXT 

READV. 

7330 GOTÜ7320 

7340 PRINT"WPULSñ / RETURN X PRRR RCRBRR"" 

7345 PRINT"Ü LR BARRA PRRR PARAR. MOT " 

7347 0PEN1, CH:CMD1 
7358 RETURN 
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COMPUTERS, S.A. 

C!Alfonso el Batallador, 16, trasera. PAMPLONA 
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POR 


COMMODORE 64 

+ 

UNIDAD DE DISCO 


129.900 


\\ - 5 .»\ 




Scuba Dive 




HASTA 

123 

JUEGOS 

DISTINTOS 




COMMODORE 64 
UD DE CASSETTE 

68 . 800 ” 


COMMODORE 64 - VIC 20 
Y PERIFERICOS 

Commodore 64 . 59500 Pts. 

Vic 20 . 26200 Pts. 

Unidad de 

disco 1541 (170K) .... 71250 Pts. 
Swanley (Adaptador 
de magnetofón) 

a VIC 20 . 2.625 Pts. 

Joystick tipo Crackskot. 2.500 Pts. 

Ampliación de 
memoria de 16K 

para VIC 20 . 11.700 Pts. 

Unidad de cassette 

"Super Saver”. 8.900 Pts. 


6 MESES DE GARANTIA PARA ORDENADORES Y PERIFERICOS 
...Y PARA COMERCIOS CONDICIONES INTERESANTISIMAS 








































































Cartas 


P.: El club Ensenada de Santander 
ha puesto en marcha una asociación 
de usuarios Commodore. Disponen de 
ordenadores CBM 64 y Vic 20, dota¬ 
dos con diversos periféricos. Su acti¬ 
vidad se centra en el intercambio de 
programas y experiencias, perfeccio¬ 
namiento de lenguajes y uso de logo. 
Está destinado más que nada a los 
alumnos de 2. a etapa de BUP y. EGB 
de Santander. L^s señas son: calle 
Santa Lucía, n.° 1, 1. a y el teléfono es 
el 22 59 92. 

Club Ensenada (Santander) 

R.: Pues ánimo, los “ commodorcros" 
de la zona están de enhorabuena, en es¬ 
te club os podréis reunir y cambiar im¬ 
presiones. Cuando estéis a tope, escri¬ 
birnos v contarnos vuestros avances v 
programas nuevos. 

P.: Soy poseedor de un Vic-20 y 
reciente lector de su también nueva 
revista, la cual me gusta y me interesa 
mucho. Les deseo lo mejor para que 
el camino de su revista no se entor¬ 
pezca ni se detenga nunca, ya que una 
revista amena y libre de ataduras es lo 
que nos hace falta a nosotros, los 
poseedores de ordenadores de Com¬ 
modore, con ganas de exprimirlos y 
estrujarlos al máximo, para sacar u 
obtener unos resultados meritorios y 
satisfactorios... 

También les contaré que por mi 
cabeza rondan varios programas para 
realizar, de los cuales si alguno de 
ellos lo creo oportuno, se los manda¬ 
ré. para participar en el concurso de 
programas, de gran acierto califico yo 
este tipo de iniciativas, pues promo- 
cionan enormemente el trabajo con el 
ordenador, con sus consecuentes be¬ 
neficios para los nuevos programado- 
res. 

Jordi Grau. Barcelona 

R.: Muchas gracias por las refle¬ 
xiones y elogios vertidos en tu misiva. 
Manos a la obra con esos programas, 
que lo que te ronda por la cabeza no 
se puede pasar desde ella a la impre- * 
sora, y a ver si hay suerte. 

Por nuestra parte el ánimo que nos 
trasmites nos ayudará a esforzarnos 
en tener una revista cada día más 
amena. 



P.: Tengo un C-64. Supongo que 
aquellos que lo disfrutéis en Santa 
Cruz de Tenerife sabréis las tremen¬ 
das dificultades para hacerse con 
libros, programas, etc. Os propongo a 
los que queráis, poneros en contacto 
conmigo y organizar un pequeño 
grupo para intercambiar todo tipo de 
ideas v experiencias. Creo que nos 
vendrá bien. 

Me llamo Fernando Martínez. Es¬ 
cribir a Gral. Fanjul, 30, 3.° izquierda 
o llamarme de lunes a viernes de 8 a 3 
al teléfono 28-50-01. 

R.: Pues ya lo sabéis los commodo- 
remen de la preciosa isla. 

P.: Mi pregunta es la siguiente; es 
necesario realizar modificaciones pa¬ 
ra que un programa escrito para un 
Vic-20 se puede introducir a un 
Commodore 64, o la impresión direc¬ 
ta es suficiente. En el caso que se 
tuviesen que realizar modificaciones, 
les rogaría me las indicasen; en el caso 
de que esto les fuera imposible, les 
rogaría me remitieran bibliografía 
sobre el tema. 

Sugiero que sería interesante que 
dedicaran algunos artículos a realizar 
estudios comparados de diferencias 
entre programaciones de diversos or¬ 
denadores, tales como el Commodore 
64, el Vic-20 y el Spectrum. 

Leopoldo Bello 
Barcelona 

R.: En el número 2 de Commodore 
Magazine dedicamos algún espacio a 
comentar las diferencias con que nos 
encontramos a la hora de utilizar en 
un ordenador los artículos desarro¬ 
llados en el otro. Sin embargo le 
aclaramos brevemente. Cuando el 
programa está escrito íntegramente 
en un BASIC que no hace referencia a 
determinadas direcciones de memoria 
(con POKE o PEEK), las probabili¬ 
dades de que funcione sin modifica¬ 
ciones son muy altas. Ahora bien, 
cuando se entra en programas que 
utilizan desarrollos gráficos (sprites 
con el C-64) o música, es improbable 
que el programa sea bivalente. 

De cualquier manera estamos tra¬ 
bajando en otro artículo más explí¬ 
cito, que será publicado cuando se 
complete, sirviendo de valiosa ayuda 
a esta traducción de programas. 


En cuanto a su última sugerencia, 
parece que nos haya leído el pensa¬ 
miento. Efectivamente, una de nues¬ 
tras previsiones futuras se encamina 
hacia establecer comparaciones enre 
la diversificada oferta del mercado. 

P.: SOy propietario de un Com¬ 
modore PET 2001 desde hace unos 
cuatro años. Esto lo adquirí de se¬ 
gunda mano, y la comprarlo sólo me 
entregaron una fotocopia del manual 
de instrucciones y una cinta con 
cuatro programas de juegos. 

Sinceramente, me gustaría poderle 
sacar más partido al ordenador, pero 
mis conocimientos en la rama de la 
programación son insuficientes para 
desarrollar un program de utilidad 
(matemática, física, doméstica, ...). 

Al suscribirme a “Commodore Ma¬ 
gazine” esperaba poder adquirir de 
esta revista una serie de programas y 
documentos interesantes aplicables a 
“mi PET”, pero no ha sido así. La 
información y programas que he po¬ 
dido encontrar son simplemente apli¬ 
cables al Vic-20 y CBM 64. 

En definitiva, solicito de su amabi¬ 
lidad información sobre el modo de 
encontrar programas e información 
para mi ordenador. 

Pedro J. Boj 
Alicante 

R.: Esta serie de ordenadores de 
Commodore fue de una gran acepta¬ 
ción en Europa. Sin embargo el 
parque existente en España tiene unas 
dimensiones no comparables a los 
correspondientes a los otros dos mo- 
de los que nos menciona. Por otro 
lado es usted el primer usuario de este 
modelo que nos escribe, por lo que 
hemos pensado que adaptarían algu¬ 
nos programas de los destinados a 
Vic-20 y CBM 64. En muchos casos, 
con ayuda del manual, no es tan 
difícil. Sin embargo, en un futuro 
artículo trataremos sobre este tema. 

Este veterano modelo fue de gran 
implantación, igual que el Apple II, en 
determinados círculos profesionales y 
universitarios, por lo que es de prever 
que existan interesantes aplicaciones 
desarrolladas por ellos. 
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OFERTA EQUIPO PROFESIONAL 
COMPLETO 


Unidad central 
commcdore-64 

Unidad de disco 
VC 1541 

Impresora MPS 
801 

Monitor fósforo 
verde 12" con 
sonido 
Sólo por 


79.000, 


m 

'i 


95.000 


59.900 


34.000, 

232,000, 


OFERTA INICIACION 


Unidad central 

commodore-64 

Datassatte 


79.000, 
• 12.000 


91.000 


74.000,- Ptas 


Sólo por 


SI YA TIENE SU COMMODORE-64 PASE POR 

NUESTRA TIENDA Y VEA NUESTRAS 
OFERTAS PARA COMPLETAR SU EQUIPO 
CON LOS MEJORES COMPLEMENTOS 

Y PROGRAMAS 



C/ Aragón, 472 - TeH 246 27 75 
08013 Barcelona 

















BREVE HISTORIA 

El LOGO fue desarrollado en 1968 
por Seymour Papert en el Laboratorio 
de Inteligencia Artificial del M.I.T., el 

célebre Instituto Tecnológico de Ma- 
ssachusetts. Durante toda la década 
de los 70 este lenguaje, derivado 
parcialmente del LISP (LISt Proce- 
sing, lenguaje con tratamiento de 
listas), era soportado únicamente en 
grandes ordenadores, debido a la 
complejidad y sofisticación. 

A partir de 1975 se produce el 
adveminiento y "boom" de los mi¬ 
croordenadores, y en 1979 el Grupo 
Logo del M.I.T. inicia un esfuerzo de 
adaptación para lograr implementar 
este lenguaje sobre microcomputado- 
res. En 1981 y bajo la respectiva 
supervisión del propio S. Papert y de 
Harold Abelson se prepararon las dos 
primeras versiones, para el Texas 
Instruments TI 99/4 v el Apple 11. 

El TI Logo permitía el uso de 
"duendes" (sprites) a diferencia del 
Apple Logo, que a cambio, trabajaba 
con una aritmética de coma flotante 
(no solamente con números enteros), 
disponía de unas instrucciones primi¬ 
tivas de tratamiento de listas más 
potentes v gestionaba el "espacio de 
trabajo” con un empaquetamiento 
más denso que ahorraba memoria. 

Durante los años 1982 y 1983 todas 
las grandes compañías (IBM, TAN¬ 
DY, ATARI, COMMODORE,...) han 
incorporado este lenguaje a sus siste¬ 
mas informáticos. 


LOGO EN EL CBM 64 

Commodore con licencia de M.I.T. 
y TERRAPIN presenta una excelente 
versión para el ordenador personal 


CBM 64, realizada bajo la dirección 
de Leigh Klotz Jr., que había partici¬ 
pado en los dos primeros proyectos 
reseñados anteriormente. El lenguaje, 
de precio moderado (1.600 pts.). está 
disponible en España desde princi¬ 
pios de 1984 (el Logo de Apple se 
comercializó un año antes y el micro- 
ordenador TI 99/4 es prácticamente 
desconocido en nuestro país). Se 
compone de dos discos flexibles: uno 
(LOGO) es el lenguaje v el otro 
(LOGO UTILITIES) es un amplio 
paquete de programas de demostra¬ 
ción y con procedimientos suplemen¬ 
tarios de gran utilidad, junto con un 
completo manual de fácil lectura 
(aunque todavía esté en inglés). Tam¬ 
bién sería aconsejable un formato de 
cintas para el Datasette, a fin de 
extender el potencial número de 
usuarios, si bien las tareas de carga y 
búsqueda de programas serían algo 
lentas y engorrosas. 

Esta versión de Commodore ha 
venido precedida en el tiempo por 
adaptaciones, como TURTLE GRA¬ 
PHICS II (en cartucho ROM y con un 
coste similar de 15.000 pts.), que son 
sublenguajes incompletos, sucedá¬ 
neos del Logo, de prestaciones muy 
inferiores e implementación mucho 
menos acertada y cuya exclusiva 
ventaja reside en no exigir unidad de 
disco para su utilización. 

IMPLEMENTACION 

Aprovechando la cualidad del 
CBM 64, que permite remodelar todo 
el mapa de memoria con sus 64 KB, 
se ha obtenido un Logo de alta 
calidad, con "duendes”, aritmética 
decimal con números racionales, 
tratamiento de listas y palabras muy 


elaborado, almacenamiento compac¬ 
to, instrucciones musicales, variables 
locales, ... 

La redistribución asigna 28 KB al 
intérprete Logo, 1 y 8 KB para las 
pantallas de texto y gráfica (disponi¬ 
bles en todo tiempo y mezcla bles en 
proporciones variables). 4.5 KB para 
cadenas de texto, 4KB para la pila de 
recursión (la recursividad es una de 
las propiedades más notables del 
Logo y se comentará al final) y 7.5 KB 
para otros apartados. Los restantes 
12 KB para la "memoria de nodos” 
(nodespace) son suficientes, dada la 
concentración del sistema empleado 
("listas de listas”), las rápidas y 
periódicas reorganizaciones para 
retirar lo no-permanente (“garbage 
col lee t ion” = recogida de basura) y 
un uso inteligente, que corresponde al 
programador del periférico mono- 
floppy 1541. 


¿A QUIENES PUEDE INTERESAR 
EL LOGO? 

El periodo de tiempo durante el 
cual el Logo ha estado disponible 
para un microordenador es reducido, 
pero permite prever la existencia de 
un amplio sector de futuros usuarios. 
Estos podrían clasificarse en cuatro 
grupos: 

a) Los programadores EXPER¬ 
TOS, que conocen y dominan el 
BASIC, pero quieren pasar a un 
"lenguaje estructurado”, rápido de 
ejecución, con listados legibles, ... 
También quienes explotar el trata¬ 
miento de listas, la recursividad, la 
facilidad de creación y uso de 
"procedimientos", la comodidad 
para trabajar en código máquina, la 
ventaja de ser un lenguaje abierto, 
extensible, que cada uno construye a 
la medida de sus necesidades e 
intereses (pudiendo generar por 
módulos un lenguajes personal, 
único), ... 

b) Los programadores NOVA¬ 
LOS. que pueden encontrar el BASIC 
(plagado de covencionalismos artifi¬ 
ciosos (por ejemplo: "se debe especi¬ 
ficar si las variables son alfanuméri- 
cas, enteras, ...”), y se desaniman ante 
un programa que no funciona por 
olvido de alguna nimiedad. Logo es 
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un lenguaje más inteligente, más 
evolucionado, de “más alto nivel 
que el BASIC, es decir, más próximo 
al lenguaje natural, más fácil de 
aprender, permitiendo una comuni¬ 
cación con el ordenador más flexible, 
más libre de “claves". Además el 
Logo es muy recomendable como 
primer lenguaje, porque facilita el 
paso posterior a los demás lenguajes. 
Lo ideal es pasar de Logo a BASIC, 
Pascal, ..., aunque en el proceso 
recíproco el conocimiento de estos 
lenguajes también simplifica nota¬ 
blemente el apjendizaje del Logo. 

c) Los NIÑOS (¡atención los 
padres!) que encuentran en el Logo la 
posibilidad de comprender, dirigir y 
dominar la tecnología más avanzada 
que existe hoy en día. El Logo puede 
lograr una auténtica “alfabetización 
informática" (Computer literacy). El 
Logo desmitifica la Informática y 
desvanece infundados temores y 


esperanzas. Es el único lenguaje de 
programación recomendable para 
aprender en edades escolares, porque 
no condiciona ni estructura el 
pensamiento de modo artificial (el 
BASIC puede ser nefasto, habitúa a 
hacer piruetas mentales con sus 
GOTOs). El Logo es el único lenguaje 
nacido de la 'mano de un especialista 


en “Psicología evolutiva" (S. Papert). 
Se debe resaltar que el Logo es un 
lenguaje idóneo para el aprendizaje y 
apto para los niños, pero no es sólo 
de niños. Como dice Horacio Reggini, 
impulsor del Grupo Logo argentino, 
“el castellano es un lenguaje para 
niños, pero también lo es de científi¬ 
cos, poetas, ...". 



TROA 



ION 


COMPUTER 


C/VI LL A RROEL.104 B ARCE LON A-11 TLF. 2 537 600- 09 


PRODUCTOS COMMODORE 

Commodore-64 
Disk Drive 1541 
Cassette CN2 
Monitor Color 1701 
Impresora MPS-801 
Commodore 64SX Portable 
VIC-20 


commodore & 



SINCLAIR 

Spectrum 48K 
Impresora Seikosha 
con interface 
Microdrive 

Teclado DK’TRONICS 
LAPIZ óptico 
Amplificador Sonido 



SOFTWARE 

Contabilidad 
Contabilidad Doméstica 
Control de Stocks 
Mailing y Etiquetas 
Ficheros 
Base de Datos 
Gran variedad de Juegos 
Programas Educativos 


IMPRESORAS 

Seikosha 

Star 

Epson 

NewPrint 

C. Itoh 

Riteman 



GAMA COMPLETA DE ACCESORIOS 

Interfaces 
Joysticks 

Sijptetizadores de voz 
Cassettes 
Cintas 
Discos 

Base de Datos 
Easy Script 
Monitores 
Interpod 
Cables 

Procesador de Textos 
Libros 



ORDENADORES DE GESTION 

Pal Computer 

Commodore 

Apple 
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Logo— 

d) Los DOCENTES para quienes 
la opción Logo puede ser el modo 
óptimo de E.A.O. (enseñanza asistida 
por ordenador). Sin relación alguna 
con la “enseñanza programada’', que 
responde a un esquema autoritario e 
implica un conocimiento reflejo, poco 
interiorizado, el Logo nace de una 
filosolfía explícita del piagetiano 
Papert, que see expone en sus 
delicioso libro “Desafío a la mente” 
(véanse las referencias bibliográficas 
1 y 2). El Logo hace más hincapié en el 
aprendizaje del alumno que en la 
enseñanza del profesor Un aprendi¬ 
zaje activo: “aprender haciendo y 
enseñando a hacer al ordenador, que 
sabe menos que el escolar”. La 
función del proesor cambia de 
transmisor de conocimientos a guía 
del aprendizaje. El protagonista es el 


colegial apoyado por su maestro, 
nunca el ordenador. El Logo permite 
crear microcosmos ricos y asimilables 
de geometría, lengua, música, dibujo, 
ciencias, ..., animándole a explorarlos 
y resdescubrirlos. Si para aprender 
inglés hay que ir a Inglaterra, para 
aprender matemáticas lo mejor es ir a 
Matematelandia, y este lugar puede 
resultar accesible con el Logo. El 
Logo favorece el conocimiento refle¬ 
xivo y personalizado, lo cual no 
significa aislado, pudiendo trabajar 
en equipo (un lema de Papert es 
“prohibido no copiar”). Esta utiliza¬ 
ción de la Informática en la Educa¬ 
ción no uniformizada a los colegiales, 
sino que les ayuda a afirmar su propia 
personalidad y mejorar su autocono- 
cepto. En EE.UU., Reino Unido, 
Erancia, .. la apuesta por el Logo 
parece definitiva. En España es el 
objetivo prioritario para las persona¬ 
lidades más ilustres de la Educación- 


Informática (E. García Camarero, A. 
Requena, ..) y los grupos más 
avanzados (GIES de Santiago, Cero 
de Valencia, Colegios Rula y S. 
Ignacio de Barcelona, ...). 


PUESTA EN MARCHA DE LOGO 

El lenguaje se carga fácilmente* 
mediante las habituales sentencias 
BASIC: 

LOAD “LOGO”, 8 
que carga un pequeño programa 
previo y RUN para llamar y cargar el 
programa principal. Transcurridos 
unos 90 segundos, aparece el mensaje: 
COMMODORE LOGO 
COPYRIGHT (C) 1982, 983 TE- 
RRAPIN, INC. 

COPYRIGHT (C) 1981 MIT 
WELCOME TO LOGO! 

? 

Desde este momento podemos 


-\ 

SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 

Telf. (91) 733 7969 

7 días por semana, 84 horas a su servicio 

SUSCRIBASE A 

commodore 

_ MjCLgjazlnj&. 
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: h darnos del arcaico, desorganizado 
_.go perezoso BASIC. En este artículo 
>e harán frecuentes referencias BA¬ 
SIC, evitándose entremezclar a otros 
enguajes como Lisp, Forth, Pascal, 
\da o Modula, con los cuales tiene 
Logo mayor analogía pero que son 
muy poco conocidos. En el próximo 
artículo sobre Forth si confrontare¬ 
mos BASIC-Logo-Forth, y así sucesi¬ 
vamente hasta llegzH' a un estudio 
comparativo BASIC-Logo-Forth- 
Pascal ...) un conjunto de sentencias 
llamadas “primitivas”. Agrupando 
estas se obtienen “procedimientos”, 
que son nuevas órdenes y pueden 
utilizarse a su vez (y eventualmente 
unto con otras primitivas) para 
definir nuevos procedimientos. 

Para explicarlo mejor: imaginemos 
que queremos hacer en pantalla un 
tablero de ajedez (Figura 1) para 
ugar con un amigo o para ver 
partidas famosas representadas (Fi¬ 
gura 2) en el TV paso a paso (¡no 
ntente este programa en BASIC!). El 
programa sería simplemente el pro¬ 
cedimiento AJEDREZ. Dado que 
AJEDREZ no es una primitiva de 
Logo, se definiría como TABLERO 
PIEZAS JGAR. Tampoco TABLE¬ 
RO e suna instrucción inicial, luego 
debemos describir TABLERO por 
ejemplo como MARCO CASILLAS, 
que a su vez serán especificados 
finalmente a partir de comandos 
primitivos. Para más detalles véase la 
referencia 3 de la bibliografía. 


José Miguel Aguirregabiria. 
Profesor titular de la Escuela Uni¬ 
versitaria de Profesorado de EGB de 
Bilbao. 

Coordinador del equipo de EAO 
de Vizcaya. 




FIGURA 1. 





BIBLIOGRAFIA BASICA 


Lamentablemente existen aún pocos 
libros sobre Logo encstellano, por lo 
que se incluyen entre estas referencias 
textos en inglés y francés. Los títulos 
dedicados a Apple son plenamente 
válidos para el CBM 64 sin apenas 
transformaciones (recuérdese que la 


relación entre los microprocesadores 
6502 y 6510). 

1. “DESAFIO A LA MENTE”. 
Symour Papert. Ed. Galápago. Bue¬ 
nos Aires, 1981. 

2. “ALAS PARA LA MENTE”. 


Horacio Reggini. Ed. Galápago. 
Buenos Aires, 1981. 

3. “LOGO: UN LENGUAJE DE 
PROGRAMACION”. (En prensa). J. 
M. Aguirregabiria. Ed. Urmo. Bilbao, 
1984. 
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GUIA PRACTICA 



COLOSSUS 
CHESS 2 0 


Commodore64 


COLOSSUS CHESS 2-0 

El mejor juego de ajedrez 
creado hasta el momento en 
su nivel superior, supera a to¬ 
dos los demás programas de 
ajedrez en otros ordenadores: 
tardaron siete años en crearlo, 
pero al fin lo tenemos aquí con 
manual en castellano. 

Por sólo 32.000 ptas. 


Precios especiales para distribuidores 


Todos los simuladores de vuelo para 
el COMMODORE 


COMMODORE-64 

Flight Part 737 — 1.950 pts. 
Pilot 64 — 1.950 pts. 

Solo Flight — 4.200 pts. 
Flight Sim.ll — 13.900 pts. 
(resumen en cast.) 

VIC 20 

Flight Part 737 — 1.900 pts. 
Instrucciones en castellano 



ASTOC-DATA 

Hardware y Software-Systems 
Sarela de Abajo 
Santiago de Compostela 
Tel. 599533 

Precios especiales para distribuidores 



MADRID 

(91)7339662 


BARCELONA 

(93)3014700 


PRECIOS ESPECIALES 
PARA COLEGIOS 

Y TIENDAS 


VIC-20 

COMMODORE 64 
ZX81 1 K 
SPECTRUM 48K 
ORIC ATMOS 48K 
MICRODRIVE 
INTERFACE 
JUEGOS (Importados) 

* * * 

Tel. (93) 242 80 11 BARCELONA 
Tel. (93) 319 39 65 BARCELONA 
Tel. (93) 725 20 59 SABADELL 
(A partir 18.00 horas) 

* * * 

MICRO / RAM 

Obispo Laguarda 1, 1. fi 
08001 BARCELONA 


DEFOREST 

MICROINFORMATICA 


TODO SOBRE COMMODORE - 64 Y VIC - 20 

LOS ULTIMOS JUEGOS EN EL MERCADO 
TODO EN PERIFERICOS - LIBROS 
PROGRAMAS DE GESTION - ETC. 

SOLICITE INFORMACION POR CORREO 


BARCELONA-15 

C/ Viladomat, 105. Tel. 223 72 29 



¡HOLA, SOY TRONIK 



-Todo sobre et 
COMMODORE 64 
y VIC 20 

• Periféricos. 

• Múltiples 
programas 

• Libros y revistas 

• Recompramos 

tu ordenador como 
entrada de otro 
nuevo. 

• Cursillos de BASIC 
a todos los niveles 


electrónica 



ORDENADORES 

PERSONALES 

Vizcaya, 6 — Tfno. 230 44 84/ 227 89 62 

MADRID 


El centro MICRO SPOT, especializado en informáti¬ 
ca, que ofrece la oferta más amplia en microordena¬ 
dores y una variada gama de periféricos, impreso¬ 
ras, unidades de cassette y disquette, monitores co¬ 
lor y F. V., etc. Disponemos de completos listados 
de software en cinta y disco, para programas téc¬ 
nicos, de aplicación, educativos y juegos. 
Accesorios diversos, manuales, r~y—ir——^ir— 
libros técnicos y revistas espe- 1 i k \ ] [[ f“| ^<[ 
cializadas. 1 


Consulte sobre nuestros cursos de BASIC y PAS¬ 
CAL para estudiantes de BUP - COU - Escuelas 
Técnicas - Universitarios - Profesionales - Empre¬ 
sas y adultos en general. 

Por vez primera en España cursos de iniciación y 
tarifas especiales para amas de casa y para la ter- 
m CTTn/T\ rm cera edad. 


Conde de Cartagena, 9 (zona Retiro) - Madrid-7 - Tels. 251 32 04/05/06/07 









































IMPORTACION Y 
VENTA DIRECTA 

COMMODORE 

64K 58.000, ptas 

VIC-20 27.000, ptas 

UNIDAD 

DE DISCO 65.000 ptas 

CASSETTE 10.500, ptas 

* * * 

Envíos contra reembolso 

* ★ ★ 

Seis meses de garantía 
Servicio reparaciones 

Tel. 241 55 18 Barcelona 
(93) 726 04 83 Sabadell 
(sólo tardes) 

COMPUTER DISKONT 

Plaza Blasco de Garay 17, 1. s 
08004 BARCELONA 


NECESITAMOS 

• PROGRAMADORES CODIGO 
MAQUINA CON DOMINIO DEL 
Z-80 Y 66502. 

• FANATICOS ROMPETECLA- 
DOS DE COMMODORE-64. 

• REPRESENTANTES PARA TO¬ 
DA ESPAÑA (EXCELENTES CO¬ 
MISIONES). 

Dirigirse por escrito adjuntando 
historial y pretensiones económicas a: 

VENTAMATIC Dpto. Personal. 

C/ Córcega, 89 08029 BARCELONA.. 


CENTRO DE INFORMATICA 
Las Rozas - Majad ahonda 

EMPEZAMOS 
Cursillos en BASIC 
cada 15 d ías 

Directamente con ordenadores 
VIC-20 COMMODORE 64 
SPECTRAVIDEO 

Tfno.637 31 51 



CAMAFEO™ 

CASSETTES DE CALIDAD PROBADA 
PARA ORDENADORES 



C-5. 1 99 ptas c/u 

C-1 0 ... 209 ptas c/u 
C*1 5 ... 219 ptas c/u 
C-20 ... 229 ptas c/u 


C-5'. 1.990 ptas 

C-10’ ... 2.090 ptas 
C-1 5’ ... 2.190 ptas 
C-20’... 2.290 ptas 


ENVIE ESTE CUPON A: 


CAMAFEO .nc 


José Lázaro Galdiano. 1. 28036-Madrid. 


Deseo me envíen cassettes de C cuyo importe abonaré libre de 

gastos de envío por medio de mi talón bancario por . ptas oue 

adjunto 

NOMBRE . 

APELLIDOS 

DIRECCION 

POBLACION PROVINCIA 


SUSCRIBASE A 

COMMODORE MAGAZINE 

(12 NUMEROS) 


TARIFA DE PRECIOS DE SUSCRIPCION 



CORREO 

ORDINARIO 

CORREO 

CERTIFICADO 

CORREO 

AEREO 

CORREO 

AEREO-CERTIF. 

- 

PTAS. 

$ 

PTAS. 

s 

PTAS. 

$ 

PTAS. 

$ 

ESPAÑA . 

3.000 

21 

3.273 

23 

3.055 

22 

3.333 

24 

EUROPA, MARRUECOS. TUNEZ. 
TURQUIA, ARGELIA Y CHIPRE . 

3.456 

25 

4.272 

31 

3.600 

26 

4.418 

31 

COSTA RICA, CUBA, CHILE. PA¬ 
RAGUAY Y REP. DOMINICANA. 

3.396 

24 

4.212 

30 

4.164 

30 

4.980 

36 

GIBRALTAR Y PORTUGAL. 

FILIPINAS 

3.264 

23 

4.080 

29 

3.149 

22 

3.965 

28 

RESTO DEL MUNDO. 

3.264 

23 

3.540 

25 

3.775 

27 

4.050 

29 

3.456 

25 

4.272 

31 

4.224 

30 

5.040 

36 



Recorte y envíe este cupón a:COMMODORE MAGAZINE, edisa. López de Hoyos, i4r- madrid-28002 


El importe lo abonaré: POR CHEQUE □ CONTRA REEMBOLSO □ 


CON TARJETA DE CREDITO □ American Express □ Visa □ Interbank □ 


Número de mi Tarjeta: 


Fecha de caducidad: 


NOMBRE _ 

DIRECCION_ 

CIUDAD_ D.P_PROVINCIA 


h 


1 


j 


























































































CALCULO- 

FINANCIERO 


v.on este programa podemos saber 
cuanto tiempo necesitamos para ha¬ 
cernos ricos. Con él podemos hallar el 
interés que rinde un capital por los 
métodos de interés simple e interés 
compuesto, calculando además las 
tablas de amortización de capital 
(devolución de préstamos), para sa¬ 
ber cuanto nos va a cobrar el banco 
por el préstamo que vamos a pedirle, 
o cuanto le debemos a cobrar a 


alguien que nos ha pedido una canti¬ 
dad de dinero. Y todo con la ayuda 
del Commodore 64. 

Para facilitar la operación, dispo¬ 
nemos de unas máscaras que posibili¬ 
ta tres opciones: 

Opción 1: Cuadro de amortización 
de un capital: El programa pregunta 
el capital, que deberá tener una longi¬ 
tud máxima de siete dígitos en la 
parte entera para poder ser represen¬ 


tados en pantalla todos los datos. La 
parte decimal no está limitada, pero 
por la misma razón sólo se represen¬ 
tará un decimal en la tabla, aunque el 
programa los tiene en cuenta a todos. 
A continuación pide el porcentaje y 
después de éste, el tiempo en que se va 
a amortizar el capital (o devolver el 
préstamo), no pudiendo ser superior 
a dos dígitos y teniendo en cuenta que 
el porcentaje ha de estar en concor¬ 
dancia con los períodos de tiempo en 
que se irá devolviendo. Es decir, si el 
capital a devolver se irá pagando 
mensualmente con un interés del 24 


0 REM ### CALCULO FINANCIERO CBM-64 *** 
1 REM *** POR M. DE BLAS. 10/8/84 *** 

10 POKE53280,14PGKE53281;6 : PRINT"3"; 

15 Pff T NJ " n ffl P BW P B " ‘ 

20 PRINT" CRLCULO FINANCIERO 

30 PRINT" --- 

40 PRINT"» 

50 PRINT"» 

60 PRINT"» 

70 PRINT"»»»» 


1 

2 

3 


- CUADRO DE AMORTIZACION 

- INTERES COMPUESTO. 

- INTERES SIMPLE. 

■OPCION ■ ? 

80 GETXf:IFX$<>"1"ANDX$<>"2"RNDXiO"3"THENGQTO80 
90 X*VRL(Xf) : ONX GOTO 100/500,700 

*®® PRINT"33" :PRINT" CUADRO DE AMORTIZACION" 

101 PRINT “ - 


DE UN CAPITAL. 


•u 


103 POKE53280,14:P0KE53231,6:TC*17:RM=0:TT=0 

105 INPUT"» CAPITAL";C ; CAP*C ; CAP$*STR$ <INT(CAP)) : CC*C-1NT < C) 

115 CC$-MID#<STR$<CC) H 2?2) RINT "“ SIETE DIGIT0S ENTER0S MAXIMO":GOTO105 

117 IFC*INT<C)THENCC$“"" 

120 INPUT"» PORCENTAJE";R:R=R/100 
130 INPUT"» TIEMPO";T:T$*STR$(T) 

J*® í 1 ^ DOS COITOS MAXIMO": GOTO 130 

145 PQKE53280,12 : P0KE53231 /11: PRI NT " 8!" 

150 A*<C*R*a+R)TT>/<a+R)TT-l) 

155 N1*INTCA):N2*A-N1 ; N1$*STR$(N1>:N2$*MID*(STR$<N2>,2,2) 

157 IF LENCN2$X2 THEN N2#=" " 

158 GOSUB160 : G0T0210 

160 PRINT"d":PRINT" ANUALIDAD";N1* i N2f J" CAPITRL";CAP$;TC* 

170 PRINT"»—i-,——-,_,_Llu 

180 PRINT"TIíCANTIDADH11NTERES ICANTIDAD I TOTAL" 

PR I^T" EMIADEUDADA»I IAMORTIZ. IAMORTIZ. 

200 RETURN 

210 F0RI=1T0T 

211 I $=M ID$(STR$ <I),2) 

212 IF LEN<I$K2 THEN I$=" "+I$:G0T0212 


II 


.11 




























por ciento anual, el porcentaje a 
introducir será 24/12 meses = dos por 
ciento, y si se va a devolver en un año, 
el tiempo son doce meses. 

Durante la introducción de estos 
datos se puede volver al menú en¬ 
trando un número negativo, indican¬ 
do también el programa si la cifra es 
demasiado larga. Una vez introduci¬ 
dos estos datos, el programa indica la 
anualidad o cuota a pagar cada pe¬ 
ríodo de tiempo y el capital a devol¬ 
ver así como el cuadro de amortiza¬ 
ción en sí mismo que consta de las 


columnas: 






213 

220 

230 

233 

235 

240 

250 

260 

270 

273 

275 

280 

230 

300 

310 

312 

315 

320 

330 

340 


PRINTI$;" i"; 

CRP=CRP-RM = C1*INT < CAP):C2=CRP-C1:C1$*MID$ < STR$ < C 1>,2):C2$«MID$ < STR* < C2 > > 2 , 
IF LEN<C1$X7 THEN Cl$=" "+C1$: G0TO230 
IF C2C.01 THEN C2$*".0" 

IF CHP=C1 THEN C2$=“ " 

printc.i$;C 2$;“i"; 

IN=CñP*<l+R)-CfiP:ll = INT<IN) = 1-2= IN-11 

11 $=MI D$< STR$ <11) ,2> : 1 2$=MI B$< STR$ (1 2),2,2 > : IFLEN( 11 *> >6THEN390 
IFLEN<11$X6THEN Il$=” " + 11$: GOTO270 
IF I2C.01 THEN 12$==".0" 

IF IN=I 1 THEN 12$*" 11 * 

pr I NT 11 $.; 12$; "i"; 

ñM=ñ-IN ; fil=INT(RM) ; R2=RM-R 1 : ñ1$=MID$ < STR$ < R1),2):R2$*MID$<STR$<R2>> 2, 2) x 
IF LENÍñl$»6 THEN 390 
IF LEN<R1$X6 THEN fll$=" "+R1$:GOTO310 
IF fi2<.01 THEN R2$=".0" 

IF RN=fll THEN R2$=“ " 

PRINTRl$;R2$;" l"; 

TT=TT+RM: T1 *INT<TT> : T2=TT-T 1 = T1 $=MID$(STR$CT1 ">, 2> '■ T2$=MID$<STR$< T2 >,2,2 > 
IF LENíT1$>>7THEN390 


350 IF LEN<T1$X7 THEN Tl$=” ”+Tl$:GOTO350 * 

353 IF T2<.01 THEN T2$*”.0" 

355 IF TT=T1 THEN T2$*" " 

360 printti$;t2$; 

370 IFI=TCTHENTC*TC+17 : GOSUB420 
380 NEXT I 
385 G0T0333 

330 PRINT : FRINT"Iil SOBREPRSRDR CRPRCIDRD BE REPRESENTRCION 

332 PRINT"» EN PRNTRLLR 

333 PRINTPULSE SUS PRRR MENU, 0 STl PRRR OTRR TRBLfl 
335 GETX$=IFX$<>"M"RNDX$<>"T"THEN335 

400 IFX$="M" THEN 10 
410 GOTO100 

420 PRINT "SI PULSE UNR TECLR 0 SHS PRRR MENU8!"; 

423 GETX$: IFX$=" "THEN423 
425 IF X$="M" THEN RUN 



NUMERO 8 

























TIEM (tiempo): indica el número 
de orden del período de tiempo (me¬ 
ses, años...) a que hacen referencia los 
datos de la fila. 

CANTIDAD ADEUDADA: indi¬ 
ca el capital que queda pendiente por 
devolver por si interesa devolver lo 
que queda, de una sola ve/. 

INTERES: Indica, en cada una de 
las cuotas que se deben pagar la parte 
correspondiente a intereses. 

CANTIDAD AMORTIZADA: 


Indica el importe correpondiente a 
amortización de capital (o capital 
devuelto) en cada una de las anuali¬ 
dades o cuotas. 

TOTAL AMORTIZADO: Indica 
la parte del capital que se ha devuelto 
hasta ese momento. 

Todas las cifras admiten un deci¬ 
mal en pantalla. Si las cifras son 
demasiado grandes como para repre¬ 
sentarlas en la línea, el programa lo 
indica, y entonces se puede volver al 


430 GGSUB 160 ; RETURN 
* 500 PRINT"T•PQKE53280,12-PQKE53281,11:PRINT"H 


ii 


505 PRINT" 

506 PRINT" 

510 INPUT "» 

520 INPUT "M 
525 R=R/100 
530 INPUT"» 

540 P«C*<<1+R>1T> 
550 PRINT"M. 


INTERES COMPUESTO 

CñPITAL";C¡IFCC0THENRUN 
PORCENTAJE";R:IF RC0 THEN RUN 

TIEMPO"; T: IF T<0 THEN RUN 


ii 


II • 


560 IN=P-C:PRINT"» INTERESES: 

565 PRINTTflB<29-LEN(STR$<INT<IN>>)>;IN 
600 PRINT"» MONTANTE 
605 F'RINTTAB(29-LENCSTR$<INTCP)))>;p 
610 PRINT":»»» PARA CONTINUAR PULSA UNA TECLA" 

620 PRINT"» 0 PULSA SUS PARA VOLVER AL MENU" 

630 GETX$:IFXÍ=""THEN630 
640 IFX$="M"THEN RUN 
650 GOTO500 

700 POKE532S0,12 : PGKE53281,11: F’R I NT " Sí" 

710 PRINT"C1" : PRINT" INTERES SIMPLE" 

720 PR I NT "-.. 

>*730 PRINT”» LA UNIDAD DE TIEMPO SERA:" 

740 PRINT”» liilSQjl = DIAS; ST1S = MESES; SAS = ANVOS" 
750 GETXf: I FX$<> " D " ANDX$0" M " ANDXÍO " A" THEN 750 
760 IF X$="D" THEN K=360:Kf="DIAS" 

770 IF X$="M" THEN K=12:K$="MESES" 

7S0 IF X$= " A " THEN . K-1 •' K$= " ANVOS" 

790 INPUT"» CAPITAL" > C ; IF C<0 THEN RUN 
800 INPUT"» PORCENTAJE";R:IF RC0 THEN RUN 

, N ’ I€ "iK*; ¡INPUTTiIF T<0 THEN RUN 
820 I = (.C*R*T> / (100*K >: M=C+1 

830 PRINT"——_____ »■ 

340 PR I NT " *1 INTERESES ; " ; 

* 845 PRINTTRB(23-LEN<STR$<INT <1> > >/;I 
850 PRINT 11 M MONTANTE 

x 860 PRINTTfiB<2'3-LEHCSTR$< INTCM) ) )■) ; M 
370 PRSNT 11 MW PARA CONTINUAR PULSA UNA TECLA" 

880 PRINT"» 0 PULSA SttS PARA VOLVER AL MENU"; 

* 890 GETX$ : IFX$==" "THEN890 
900 IF K$== n M" THEN RUN 
1000 GOTO?00 


menú, o hacer otra tabla. En la 
pantalla caben hasta 17 plazos. Si hay 
más. se representarán los 17 siguien¬ 
tes pulsando una tecla, pudiéndose 
también volver al menú, pulsando 
"M". Cuando el proceso termina se 
puede volver al menú, o hacer otra 
tabla, pulsando “M” o “T” respecti- 
. ámente. Todo esto lo va indicando el 
programa. 

Opción 2: interés compuesto: Esta 
opción permite calcular el interés que 
rinde un capital mediante la fórmula 
de interés compuesto. Primero pre¬ 
gunta el capital, a continuación el 
porcentaje y por último el tiempo. 
Est - datos no están limitados por el 
prcgrama como en el caso anterior. Si 
se introduce un dato negativo se 
puede volver al menú principal. Una 
vez introducidos los datos se muestra 
el interés que producirá el capital, así 
como el montante (capital más intere¬ 
ses Pulsando cualquier tecla se pue¬ 
de hallar otro, o volver al menú 
pulsando “M”. 

Opción 3: interés simple: El pro- 
gruir..: primero pregunta cómo se va a 
medir el tiempo, pudiéndose optar 
por días, meses o años, pulsando 
“D’\ “M“ o “A" respectivamente. A 
continuación se pide el capital, luego 
el porcentaje y por último el tiempo. Si 
se entra un número negativo se puede 
solver al menú. Estas cifras tampoco 
tienen imite, excepto la propia capa¬ 
cidad del ordenador. Una vez intro¬ 
ducidos los datos se muestran los 
intereses > el montante, pudiéndose 
calcular otro pulsando cualquier tecla 
o pasar al menú pulsando tc M’\ 

Comprobación: Para comprobar 
que nc ha pasado bien el programa, 
un capital de 1.000.000 a un 3.75 por 
ciento de interés mensual, a devolver 
en 12 meses, en la fila 12 de la tabla 
debe de dar: cantidad adeudada: 
101216.6 intereses: 3795.6; cantidad 
amortizada: 101216.6; total amorti¬ 
zado: 999999.9 (debido a los decima¬ 
les). Anualidad: 105012.2 

Mariano de Blas 


\zlnjQ- 
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Software comentado 



PROGRAM: 31) TANX 
TIPO: JUEGO 

DISTRIBUIDOR: ABC SOFT 
FORMATO: CASSETTE 
COMPUTADOR: 
COMMODORE 64 

Aunque el nombre del juego 
nos induzca a pensar en un 
aparatoso juego en tres dimen¬ 
siones, como el BATLEXONE 
de ATARI, que podemos ver en 
muchos bares, la realidad es bas¬ 
tante distinta. El juego nos colo¬ 
ca en la torreta de mando de un 
tanque que debe destruir a todos 
los blindados enemigos que pa¬ 
sen por un puente situado en¬ 
frente nuestro, éstos van circu¬ 
lando de un lado a otro sin 
pararse por varios carriles. Si 
logramos destruir a un tanque, 
todos los que le sigan por ese 
mismo carril se detendrán, hasta 
que uno de ellos vuele al destrui¬ 
do de un cañonazo. Durante ese 
tiempo la fila se queda parada y 
podemos hacer fuego sobre ellos 





ivrc 


$fp 

iw C i • a {> t n :t 




Hiscoftr 


con gran precisión. Hay que 
tener cuidado al destruir un tan¬ 
que, ya que se le puede dar en 
dos sitios distintos. En la torreta 
el tanque queda totalmente des¬ 
truido y nos da más puntos, si el 
cañonaño es en el cuerpo, el 
blindado se inmoviliza pero pue¬ 
de seguir usando el cañón v 
disparará sobre nosotros, por lo 
que deberemos dispararle por 
segunda vez. Para disparar po¬ 
demos controlar el giro y la 
inclinación del cañón dentro de 
un amplio campo, por lo que hay 
que afinar la puntería bastante. 

El planteamiento es sencillo y 
no tiene las complicaciones de 



otros juegos que están apare¬ 
ciendo en el mercado. El juego 
llega a parecerse demasiado a un 
tiro al blanco en elque los patitos 
han sido sustituidos por tanques 
que se deslizan a distintos niveles 
(teóricamente más o menos cer¬ 
ca). A veces (demasiado pocas 
para nuestro gusto) un tanque 
gira su cañón y nos dispara, para 
evitarle debemos girar la torreta 
hasta quedar fuera de la trayec¬ 
toria de la bala. 

El programa está bien realiza¬ 
do, con buenos gráficos, manejo 
agradable y sencillo. A los juga¬ 
dores experimentados les parece¬ 
rá demasiado tonto, pero para 
aquellas personas que se inician 
en el mundo del videojuego. 


PUNTUACION: 
ADICCION: 6 
PRESENTACION: 6 
GRAFICOS: 7 ACCION: 5 



I PROGRAMA: 

MOON BUGGY 
TIPO: JUEGO 
DISTRIBUIDOR: 
INDESCOMP 
FORMATO: CASSETTE 
COMPUTADOR: 
COMMODORE 64 CON 
JOYSTICK 

Este programa nos coloca en 
la superficie de la Luna condu¬ 
ciendo un avanzado “buggy” que 
puede acelerar, saltar y hacer 
fuego de frente y hacia arriba. La 
cinta incorpora un cargador tur¬ 
bo que realiza la carga con gran 
rapidez, cosa muy agradable 
comparada con la lentitud habi¬ 
tual del Commodore en estos 
casos. 

Una vez puesto en marcha el 
programa se nos muestra un 
corte en sección del terreno y, 
por encima, nuestro vehículo que 
se va deslizando a velocidad 
constante. Haciendo uso de los 

1 




controles izquierdo y derecho del 
joystick podemos acelerarlo y 
frenarlo (aunque no pararlo del 
todo), si empujamos el mando 
hacia arriba (o hacia el frente, 
según se mire) el vehículo saltará 
un trecho. Por último, el botón 
del joystick dispara dos cohetes, 
uno situado en la parte superior 
hacia arriba y otro hacia el fren¬ 
te. 

Durante el viaje van apare¬ 
ciendo peligros de la más diversa 
índole, al principio son pequeños 
cráteres que hay que saltar para 
evitar estrellarnos, luego vendrá 
un platillo volante, que debemos 
destruir con el cohete superior. 



Posteriormente aparecen enemi¬ 
gos delante a los que hay que 
lanzar más cohetes, además de 
gran cantidad de minas reparti¬ 
das por el terreno. Para evitar 
éstas últimas, existen dos siste¬ 
mas, si la mina sobresale mucho 
del terreno debemos dispararle 
antes de llegar a ella, si por el 
contrario está enterrada, debe¬ 
mos saltar por encima de ella 
como si fuese un cráter. 

El programa tiene una presen¬ 
tación soberbia, los gráficos tie¬ 
nen una calidad extraordinaria y 
la animación está muv bien con- 
seguida. El juego ensi es algo 
difícil de dominar y se necesita 
una gran paciencia al principio, 
hasta que -se llega a controlarlo 
totalmente. 


PUNTUACION: 
ADICCION: 7 
PRESENTACION: 8 
GRAFICOS: 8 ACCION: 9 
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CBM 64 


Este programa para el C-64 con¬ 
vertirá la pantalla de su televisor en el 
cristal de la cabina de una nave 
intergaláctica. Sobre dicho cristal 
aparece un punto de mira; es el del 
láser de la nave. Tu misión es moverte 
por el espacio destruyendo el mayor 
número de naves enemigas posible, 
dentro de los dos minutos de tiempo 
de que dispones. Para ello debes 
desplazar tu nave hasta tener a las 
naves enemigas bien enfiladas en tu 
punto de mira, entonces dispara. Hav 


muchas naves enemigas que aparece¬ 
rán en cualquier momento, cuand > 
menos te lo esperes. 

Para controlar tu nave y disparar el 
láser debes utilizar las siguientes te¬ 
clas del teclado: 

W=Arriba. 

X=Abajo. 

A=Izquierda. 

D=Derecha. 

S=Dispara el láser. 

El programa, para conseguir ma- 
vor velocidad, utiliza toda una serie 


de rutinas en lenguaje máquina, que 
ve introducen en la memoria del 
ordenador a partir de las sentencias 
data: p >r ello es de la mayor impor- 
jcneia na equivocarse con estas DA- 
*> en cualquier caso, asegurarse 
uue el programa está guardando 
en cinta antes de escribir RIJN. ya 
c e si no. podríamos quedarnos eol¬ 
ia a s teniendo que apagar el ordena- 
d r . sin ninguna copia del programa 
cae hemos tecleado. 




/ 


10 REM ***************************** 

15 REM * EL PILOTO DE LAS ÜHLHXIñS * 
¿.y REM # ^ 

25 REM # CÜMMÜHÜRE MRGRZINE * 
Sé REM ***+:^******^+*^¥*****¥***í^^.^ 


/On 


'v 






40 P0KEbb^255 : PÜKEoe, 47 : V=53248 : POKEV+32. 12: pnk 
45 PURI =0 I UbSo : REfiDfi : F'OKE 1024* 12+1 .fi: NEXT 

I® ^^2040,132-P0KE2641,133 :POKE2042,134 :P0KEV+21 1 F =¡ pnRE^+^T 1 

.... FUKE'/+23y ■ FUKtV, 148 ; F’OKEv +1,108 : FOKEV+28,6•'FTR F — : : aa'-C Vpnp-pLo-* 
fc.y KB-1 S? : PRI NT " n M * - - - ^ 1 ' r UKfc v +o r .. o 

65 FORI =0T0151 = REflDñ = F'OKE i 3* 1024+1. fi: NEXT 

Z* ! ®? 4 : LE=I¡+52: RI =n+102 : FOR i =552967056235: POkE I . -•£ T 

i z t lj R I = í i 050 • F'OKE 1024+RND ( i > * 10004b : NEXT 
b’0 HL=ü : TI $- 11 y y 0000 M . SO0 

35 K=PEEKCKB> : fl=PEEK<V+30> : POKEV+39,5: IFF¡=3THENFf¡KE -3 - : 

90 IFKO13THEN166 ' t ‘ "" ^ 

?^^ 6 ^:^^ 7 ?:^P0KE54272, 169:P0KE54277 1-3 F > E^27fi. i 2 9 
i yy F »jKE v +¿. j ty • puke v+x, a¿>¡ : pnKÉv+^. 2- ; R ' — 

ÍG5 ^‘JKEV+4/ 4^POKEV+ í6.. F'EEKí V+ i6 > 0R4 : POKEV+2i .• F'EEE< ^2l ** 

lly ^GF-T-ÍTuoí; - F'uKE V 4* FEEKí V+2>+3 : PDKEV+3.* PEER 1 W3 3-3 Ff • P -ks PFPk« , .. s + 

1 ; IFñ<0THENñ=25b : POKEV+Í6.. PEEKíV+ib -4 

ÍS ?SÉÉí M5 :NEXT:P * EVt2 ‘' PEEK<V+21 >HS:E=SfiNIC 

13b IFfiñHD8TFiEH338 

140 P0KE54276 ^0•F0KE54273,17:FGKE54277,7:P0KE54276■¿ 23 

14.J F 0kt , F EEk ■, v> +10 : F UKEV+3, F'EEK <. V+1 > +10 •' FOKE204 i 20 i POKEV+21. F’EEKí V+21 >0R2 
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150 
i 55 
i 69 
165 
i 70 
i 75 
180 
i 35 

130 

200 
205 
210 
i 5 
!0 


O ***i L. 
u. CL. vj 

230 


FOR1 = i T050 • NEXT • PÜKEV+2 i, PEER < V+2 í > -2 
FÜKL2041 , í 33 
I h ñ L > 0 T H L N 2 3 8 
IFRND(1)>«1THEN285 

IFPEEK V+16 ) RNDR i HtHPUKEV+16 .• PEER y V+ i 6 ) ~S 

h'UKEV+b .* KNDi *256 • I F RND y i 7. r o 1 HEHPuKEv+6 .= RND y i ) *63 : PUKEV+ 16.* PEtR V+16URo 

FuREV + r’.. RND y 1 )*2u8 ■ ¿.-INI (RNDí. 1) +5) : PÜKEV+42.• 4 

DZ~ I NT ( RND < i > *5-2 > • DV= i NT < RND < 1 > *5-2 > • DX- I NT ( RND C 1 > *5-2 ) 

IF(DX=0ñNDDV-6ñNDDZ-0>ORCDX=0fiNDDV=0ñNDDZ>0>THEN185 
IFZ=8THEN225 

IFPEEK <V+16> RND8THENPÜKEV+i6,PEER<V+i6>-8 
I FRND< i ) >. 5THEN220 

FOKEV+6 .• 2 : I FRND < I ) >. 5THENF ÜKEV+6 .• 36 ; PÜKEV+16.. PEER «C V+16 > 0R8 
GOTO225 
F’OKEV+7 


5THENPGKEV+7246 


PÜKE2043,Í35+Z•PÜKEV+21,PEER<V+21>0R8 : RL=1 

H = P E E K ( V+ 7) + Dt *2 :IF FK31 GRñ>246THENñL=0 : PÜKEV+21,PEER < V+2 1>-8•GGTÜ285 


OOOOOOOOOOOOOOOOOC 























Viene de la página anterior 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


•- cr 
el O 

248 

245 

250 

255 

260 

265 


PüKEV+7, Fl: fi-F'EEK (V+6 > +DX#2 : B~ F’EEK < V+16 > RND8 
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SAUCER ATTACK 
es realmente 
un JUEGO DISTINTO 
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TOMADAS DIRECTAMENTE 
DE UN MONITOR 1702 
COMMODORE 


SCORE 


JAMES O 


SAUCERS . O 


INSUPERABLE CALIDAD AUDIOVISUAL 


PEDIDOS 

FERRE -mOPET /.A. 

Tuset n.° 8, entlo. 2.° Tel. 218 02 93 
BARCELONA 08006 

DISTRIBUIDORES 
Y PARTICULARES 
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...PROVINCIA. 

□ Adjunto cheque 

- 

□ Contra reembolso 

Precio Venta 

Gastos envió: 300 ptas. 

9.975 ptas. 

































C-64 

hasta la parte superior de la misma y 
seguir jugando en una nueva zona de 
juego. 

Las criaturas cósmicas son las si¬ 
guientes: 

Escorpiones: Son de color verde y 
su valor pueden ser de 20 puntos o de 
30 puntos según que vayan o no 
dejando una traza al acercarse. 

Cortadores: Son de color azul y 
tienen la propiedad de poder liberar á 
las criaturas atrapadas por una red. 
Su valor es de 40 puntos y no se les 
puede atrapar con redes, sino que hay 
que matarlos. 

Cangrejos cósmicos: Es en lo que se 
convierte cualquier criatura que con¬ 
siga llegar a la línea inferior de la 
pantalla. La única forma de acabar 
con ellos es utilizando la “gran ex- 
plosiórf’ (barra de espacios) lo que 
consume 25 puntos. Si se dispone de 
suficientes puntos la pantalla perma¬ 
nece de color gris. Además, la prime¬ 
ra vez que se utiliza esta terrible 
arma, acaba no sólo con los cangre¬ 
jos, sino con toda forma de vida que 
hubiera sobre la pantalla. 

El control del programa se lleva a 
cabo mediante las teclas: 
Z=Izquierda. 

C=De recha. 

>= Disparo de redes. 

<=Disparo de paquetes de energía. 
Espacio=gran explosión. 


redes que atrapan a los insectos y que 
proporcionan una puntuación doble, 
por otro lado se dispone de paquetes 
de energía que destruyen a los insec¬ 
tos, pero que proporcionan menos 
puntos que el empleo de las redes. Si 
la pantalla se vuelve de color amarillo 
hay que prepararse para ascender 


En este programa una serie de 
insectos cósmicos intentan llegar des¬ 
de lo alto de la pantalla hasta el suelo, 
para una vez allí, y convertidos en 
cangrejos, acorralar al jugador y aca¬ 
bar con una de sus vidas. Para 
defenderse se dispone de dos tipos de 
armas, por un lado se pueden utilizar 
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PUKE55, 255 : PÜKE56.* 47 : V-53248 : PÜKEV+33.. ü ; POKEV+323 0 : PÜKE-54296, 15 
40 DIMP <A),KAj-F ORI =0T04 : Tv I) =0: HEXT: CÜ=54272 = KB= 1 97 ■ LS=1024: Cfi=0 
PC»11 : L=12:R=20:HI=0:FÜRI=12544T012552:POKEI.0:HEXT 
50 FORI = 1?288T012415 = REÑDh = POKEI,fPHEXT = POKEV+24,28 
55 3C=0 : LI=3 : F-2004 : HE=20 = H=-1=S=-1=SZ=0■RE=0 = £0=0 
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70 PRI NT " CíÜiOlli:: JBiiiiilBBBBC DBBBB:^■■■■■El:^■El^■ID^JCX:x:■)::X:X ,, ; 

7b PR I NT" ncxxncrrnc “; : TI $= " 000000 : P0KE54278 .• 32: P0KE542?? , 0: PQKE54276 , 0 
80 P0KE54276, 17 

85 FORI=0TO4 : K=PEEKCKB> : IFKOLRNDKORTHEN 100 
90 POKER.. 32 

95 F-P+ < K=L >-<K=R>:I FPEEK < P ) <>32THENP=P- < K=L >+<K=R) 

100 POKEP+CO .• 7 : POKER, PC 
105 IFT<I»0THEN125 
110 IFRND(1K, 9THEH330 
115 P(I) = IHT<LS+RND(1>*40> 

120 T <I> = INT <RNH<1>*2+1> = IFRND<1><CR/6THENTU > =4 
125 ONT <I>GOT0130,165,205,235,285,305,305,305 

130 CL-2 • CH= 12: D= INT (RND < 1 >*3-1) +40: F'0=P< I > +D = F‘E=F'EEK< F'O > : I FF'E=F'CTFEN565 
135 I FF’E=5THENPE=32 

140 IFF’E=7THENT<1 > =6= POKEP< O, 32 -F'd) =P0 • CR=Cñ+1: SC=SC+20: GOTO305 
145 IFPE032RNDRND< 1». 5THEND= INT< RND< 1)*3-1 > : PO=F'< I > +D: PE=PEEK<F'O> : GOTO 140 
1 50 I FPEO32THEND=0 = GÜTO320 
1 55 I FPO> 1 983THEN230 
160 GOT0320 

165 CL=5 ; CH= 13 : D= INT< RNDí 1 >*3-1 > +40 : F'Ü=P< I > +D : PE=PEEKCF'O ) : IFPE=F'CTHEN565 
170 I FF'E=5THENPE=32 

175 IFPb=7THENT <■. I > =7 : POKEP(I >, 32 : Ch=Cñ+1 : P (I > =F'0 : SC=SC+40 : GOT0305 
180 IFPE032RNDRHD< 1 >>. 5THEND®INT<RND< 1 )*3-l> : P0=P< I )+D ; PE=PEEK(PO> : GOTO 175 
185 IFF’EO32THEND=0 • GOTÜ320 
190 IFPO>1983THEH230 
195 IFRND<1».9RNDD>üTHENT CI>=3 
200 GÜTG320 

205 POKEP(0,5: CL-5: CH= 13: D=40: F'0=F'< I > +D ■ PE=F'EEK ( F'O > : I FF'E=PCTF)EN565 
210 IFF’E=7TFIENT< I )=8 : POKEP< I ) , 32 •' PC I )=F'Ü : CR=Cfi+l -SC=SC+60 : GOTO305 
215 I FF’E=5THENPE=32 
220 IFPE032THENT < 0=0: GOTO330 
225 I FF'O C 1984THEHF'< I > =P ( I > +D: G0T0325 

230 T<0=5 : POKEPCI>,32 ; PCI)=PCI)+B POKEPCI)+C0,10:POKEPCI>,15:GOTO330 
235 CL= 14 : CH= 14 : D= I NT ( RND C1 > *3-1) +40: F'Ü=F' C I) +D: F'E=PEEK C PO > : I FPE=F'CTFIEN565 
240 IF F'E=5THENPE=32 
245 IFPE08THEN265 

250 FORJ=0T04: IFF'C J)=F'ORNDTC J>>5THENTC.J)=TC J>-5: D=ü: J=4: CR=Cfi-l: NE=NE+1 
255 NEXTJ=GOTO320 

260 IF PE032RNDRND C 1>>. 5THEND= I NT C RND C1 >*3-1 > : PO=PC I > +D: F’E=F’EEKCPO) : GOTO240 
265 IFPE032RNDRNDC O>. 5THEND= INTCRND<0*3-0 = PO=PC I > +D ; F'E=PEEKCPO) 

270 I FP.EO32THbND=0 : GOTO320 
2 75 I FF'0> 1983 THENF’OKEF' C I ), 32 : T C I ) =0 : GOT0330 
280 GOT0320 

285 CL=10: CH= 15 : D=1NTCRNDC 0*3-0 = IFRND< 1». 1THEND=CPC I )>P>-CPC I )<P) 

290 PO=P< I )+D: PE=PEEKCPO> : IFF'E=PCTHEN565 
295 IFPEO32THENB-0 
300 GOTO320 

305 CL=INTCRND CO *15+ O:CH=8 = D=0 

310 I FCfl-5 THENF'OKEPC J >, 32: T C J > =0 : CR=CR-1: NE=NE+1 : GOTO330 
315 G0T0325 

320 POKEP (0,32 ; PC I >=F'C I >+D 
325 POKEPCI> +00,CL:POKEPC O,OH 
330 I FKO440RN>-1 QRNE=0THEN345 
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p - f “ 1 Í. POK:E54290 ' 0 ; PÜKE54291.. 71 : P0KE54287, 34 : P0KE54286, 75 

r U k E 4 ci + 0 , 1 i 

I FK047ÜRS>-1THEN355 

S^P : p nK £ 54290', 0: PQKE54291,71:P0KE54287, 72 :P0KE54286, 169 :POKE54290,33 
Ir N—— 11HEN880 

POKEN,32 : N-N-40:IFNCL3THEHN--1:GOTO380 
IFRND<1>>.95 THENN=N+40:POKEN+CG,4:POKEN,7:N=~1:GOTG380 
11- PEEK 'i N > =32 THENPÜKECÜ+N, 4 •' POKEN . 6 ■ GüTn:-:P 0 
H=N+40:POKEN+CO,4:POKEN.7:N=~l 
IFS=-1THEN456 

F UKEo,32•b=b-4W•IFSkLS¡HEN3=~i•0010450 

PE=PEEK<S> : C»PEEK<S+C0) : POKES+CO,8 : POKES,9:IFPE=32THEN450 
POKEM290,©• P0KE54287,8 : PÜKE54286,37 : P0KE54291,36=PGKE54290,129 
F'UKEo+CU, 7 '■ POKES, 10 : hÜP.J=8Tü4 : IFT< J> =0ORP< J>OSTHEN425 
Í FT ';;; T >>5THENT(J>=T< J>-5 : SC=SC+5 : J=100: Cñ=Cfi-1 : ÑE=NE+1 •’G0T0425 
3C=bL+ i (. J ,'*10 : IFRNIK 1 X. 7THENT( J> =0 : .1=100 : 0010425 
FÜRJ1 =GT04 :1 FT ( J 1 > =0THENT < J1 > =T c J >: p<,r l > =p ( ,i'>: ¡ i = i m : Ta:1 «« 

NEXT J1 ; IFJ1C99THENT< J>=0: J=l£i0 " .." 

NEXT J •' Ir J>5THENP0KES, 32 • G0T0445 
I FF'E=7THENNE=HE+1 : PE=32 
IFPE=5THENPE=32 
POKES+CO,C:POKES,PE 

P0KE54273, RNIK 1 >*50: P0KE54272, RHDC 1 >*256 •' IFK=60THEH5 -:0 

RE=@: IE SC<25THENF’OKEV+32,0 .. 

IFTI*>"000250"THENPOKEV+32,7:0070470 

IF SC>=25THENPQKEV+32,11 

IhEO=0ñNDSC>1000THENSZ=0:B0=1 

NEXTI : IFTIfC"000300"THEN85 

IFS>-1THEHPOKES,32:S=-1 

IFN>— 1FHENPOKEN,32 : N=-1 

FORI=0T04 : IFT(I»0THENPÜKEPCI>.22: J( I>=0 

NEXT : NE=20:RE=ü:SZ=0 : Cñ=@ 

POKEV+33,7:FORI -1T 01@00:NEXT : POKEV+33,0 
K=PEEKíKB> : POKER, 32 •' F-F-48+ (K=L>-<K=R> 

cnotlfr-^ :f; 0 KEP+CQ, 7 : POKER, PC : IFP<LSTHENF-2004 : SC=SC+100 : GOTO60 
■ - K i -1 I U ■ j Ü • N b. r\ T 

I FF'E=32THEN505 

LI=0 •' 1=0 •' P <; I >=p: GOT0565 

IF S C < 2 5 O R R E T HE N 4 7 5 

POKEV+33, 13 : SC=SC-25: FOR.J=0TO4 : IFT «i J>=0THEN560 

PUKE54290,0 : PUKE54287, 72: P0KE54286, 169 : P0KE54291.17: pÑKE54- :, 20 ,122 
I FSZ= 1 ñNIiT JO5THEN560 —. a, 1 ¿3 

IFT< J»5THENCfi=CR-l : NE=NE+1 

POKER<J >,32:T CJ> =0 

NEXT J:SZ=1:POKEV+33,0:RE=1:00T0475 

POKEF’C I >, 32 : POKEV+33,11: FORJ=1TO1000: NEXT 

POKES4290,0: PÜKE54287, 4 : P0KE54286, 73 •' P0KE54291,240: POKE54290. I b2 
POKEV+33,12: FORJ= 1TO1000: NEXT ' • - r - »■' 1 " 

POKEV+33,15:FORJ*1TO1000:NEXT 
POKEV+33,0 : FORJ= 1 TO 1000 : NEXT 
T(I> =0:SZ=0 : LI=LI-1 : IFLI>0THEN450 

POKEV+24,21= PRI NT " ZfiF IN BE JUEGO " : F'R I NT" MíMíPUNTI IRC I OH " ; Sf 
IFSCSHITHENHI=SC 
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PRI NT" mm .EL RECORD ES"; HI 
F‘RINT".ClEiMííJTRiJ JUEGO, S/N" 

FÜRI-0TÜ4•T <I>=0:R(I)=0 : NEXT 
GETfi$ : IFfi$="S“THENRESTÜRE : GÜTO50 
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Simón es un muñequito que te 
propone jugar con él. El juego consis¬ 
te en repetir una secuencia de tonos y 
colores que él te irá marcando. La 
secuencia comienza con un solo co¬ 
lor, después se repite el primer color y 
se añade otro nuevo, luego son tres 
colores, y así sucesivamente. Cada 
una de las secuencias puede estar 
constituida por hasta seis colores 
diferentes, repetidos o no. Cada vez 


que aciertes a repetir la secuencia 
correctamente, Simón le presentará 
de nuevo, a mayor velocidad, y aña¬ 
diendo un color más. Para repetir la 
secuencia hay que utilizar las teclas 
del 1 al 6 correspondientes a cada uno 
de los seis colores. Si consigues recor¬ 
dar y repetir hasta ocho notas segui¬ 
das, ganarás el juego, pero ya verás 
cómo no es nada sencillo. Él juego 
constituye una prueba a la memoria y 


C - 64 

a la velocidad de reflejos, ya que sólo 
dispones de unos pocos segundos 
para reaccionar. 

Las variables empleadas por el 
programa son: 

V= Puntero para el manejo de Sprites. 
N(X)=Matriz de las notas tocadas. 
A=Tecla pulsada por el jugador. 
^Indicador de la última tecla pul¬ 
sada. 
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10 REM 

15 REM * S I M 0 N if 
20 REM * + 
25 REM * COMM0DORE MñGfiZINE * 
30 


35 


40 PRINT":P0KE53281,1:P0KE53280,4:PÜKE54296,15:PÜKE54276,0:PÜKE54276,17 
45 P0KE54277,0 : PÜKE54278,240 :: P0KE54273,0 : V=53248 : PÜKEV+21,3 : PGKE2040,13 
50 P0KE2041,14: PÜKEV+39,0 : PÜKEV+40,5 ; PÜKEV+28, 2 : P0KEV+38,0 ; FÜR I =0TÜ 126 •* REfiDQ 
55 P0KE832+I,Q : NEXT : PÜKEV,140:PÜKEV+2,14Ü:P0KEV+1,61:F’ÜKEV+3,82 

60 PRINT"Sfól_ M 

65 PRINT" í 
70 PRINT" I 
75 PR I NT 11 i 

80 PR I NT 11 -" 

85 PR I NT " + + + + + + + + + + + + + + + + + + ♦" : GÜSUB 190 

90 GÜSUE335 : DIMN(8> 

95 FÜRI-1TÜ8 : N<I> ~INT <RND<1>*6) +1:FÜRJ-1TÜ1:PGKE54276.17 
100 PÜKE54273, N < J > *20 : PR I NT " rs¡" : GOSUB240 
105 FÜRX-1TÜ400-1 ‘*30 : NEXT : P0KE54273, 0 
110 PR I NT" kC 1 : GÜSUB240 
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115 FORX= 1TQ200-1 #20: NEXTX, J : PRI NT" mM* REPI TEiülBBBBBLFlS 


NQTRS!" 


120 FOR J = 1TOI : PÜKE54276 .■ 0 ; P0KE54276.. 33 • F'ÜKE í 98, Q: FORX= 1TO250-1 #20 
125 GETRÍ:IFVfiL(Rí>>0RND VAL<Rí>C7THEN135 
130 NEXTX : GOTO280 


135 

140 


GOSÜB505 

I FVfiL (Rí > OH (J > THEN280 


145 PÜKE54273, VfiL (Rí > #20: PR INT'TSj" : GGSUB240 
150 FORX-1TO500-1 #50 • NEXT : P0KE54273, Ü : PR I NT " k H : GÜSUÉ240 
155 FORX*1TO1500-I#80 : NEXTJ : F0RX=1TO600•NEXTX,I 
160 GOSÜB505:PRINT"3aWWiW TUMBBBI GfiNfiS ! ! " : FOR S=1 TO 1000 : NEXT 
165 GOSUB505 • PR I NT" mM* OTROlíl««ilJUEGO?S/N" 

170 GETRÍ : IFfií= s "S"THEN95 
175 I FRÍO" N " THENGOTO170 
18ü GOSUB505 • PR I NT " ÜWim BRHI OS! 

185 ENH 

190 PR I NT " mmmmmnitiT 
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RETUR 

PR I NT " íí pMí!Ií!MpMíÍí!Ií i i I"; • IFN < ,T > >3THENPR I NT 11 Ü»Í»I 
I FN< J> = 1THENPRI NT " ST TOBBflfll • 1 ülBBBBIff^Sl 

I FN < J >-2THENPRI NT " mtimtiT ^ülHllflH 2 pIIHIIü^^ W 

I FN < J > =3 THENPR I NT " TOBBBfll 3 J!lBBBB»^3l 

IFN<J>=4THÉNPRINT H Sr TOBBBBI 4 *IBBBBBna W" 

I FN < ,J > =5THENPR I NT " ^IBBBHI 5 ÍIBBBBPH^ W 

I FN < J > =6THENPR I NT" mmmMmtir IpJBBBBI 6 ílBBBBBHlál 


m 


•n 


ii 


RETURN 

280 P0KE54276 .• 0 : PÜKE54276 - 33 

285 FORI=2OTO1STEP-.2 : P0KE54273,I : NEXT 

290 P0KE54273.. 0 

295 GOSUB505 
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PR I NT" WLfiST I MR ! . " 

PRINT" M3TR0" 

PR I NT " MJUEÜ07S/N " 

GETRÍ • IFRÍ ~"S" THENP0KE54276 .• 0 • P0KE54276,17: GOSUB505 • GÜT095 
IF fií <>"N"THENGüT0315 
GOSÜB505 • PR I NT " HKKHUlBfiD I OS ! jsIüMeiMiüT' 

END 

_ _ j i =- 1 • pr i nt n mmn V0 ME " 

340 PRINT n M LLRMO 
PRINT“M SIMON" 

Iji IJ!~. IJ Ti 0 c j 

PR I NT " mmt* QUI ERES " 

PRINT"Bl JUGfiR MI" 

PRINT" HUUEG07S/N" 

GETRÍ : I FRÍO " NfiHDfiíO"S " THEN378 
IFRÍ-"N"THEN485 
I FRÍ~ " VTHENGOSUB505 
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PRIHT ,, S®SOSlllREPITE 
390 PRINT"H L.H 

PRI NT “ HISECUENC IR" 
GÜSUB505 

PRI NT¿fóOTBEDE COLOR 
PRINT"M Y " 

PRI NT "ni SONIDO. " 
GOSUB505 

PRINT ,, aWW»l CfiDñ " 
PRINT ,, m VEZ HAY n 
PRINT"M MRS 
GOSUB505 

PRINT M ®H?>iI DEBES 15 
PRINT"M ESTñR " 

PRINT M Ül ATENTO! " 
GOSUB505 
PRINT" írESPERA" 
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RETURN 
GOSUB 505 

PRINT ,, i»«)SHa ADIOS " 

PR I NT " ÜEENTONCES ! imMm" 

END 

IFI--1THENFÜRZ=1TO2080 ; NEXT : PÜKE54276,0 : PÜKE54276,33:PÜKE54273,50 
PRINT"S®aWI 
PR I NT 11 Ül 
PRINT"ÜI 

IFI=~1THENP0KE54273,0 
RETURN 

DATA8.. 0 , O .. 0 ,255, 128, .1,255, 192. 3 .• 255.. 224.2 .■ 9 .32,2,0,32,2,54,32,2,99,3c 
DAT A2,99,32,14,193,184,1 G ,8, 40 ,1 0 ,8, 40 ,8,24,8, 8,1 93 ,136,8, 99 , 

DATA4,0,16,4,0,16,7,128,240,5,255,208,2,231,32,99 

DATA2,255,128,10,190,169,42,255,168,179,255,í 70,í74,235,186,174,235,186 
DATA174,235,186,174,235,186,46,170,184,43,170,232,1Ü,235,160,19,235,160 
DAT A19, 190, 169, 19, 195, 169, 3,60, 192,3,255, 192,9, 0,0,0.. 0,0,0, 0,00,0, 00 , o0 
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GESTION COMERCIAL 


para su commodore-64 


Facturación 


* Ficheros: clientes, almacén, representantes, bancos, etc. 

* Salida de facturas directa o diferida. 

* Confección de recibos negociables y remesas bancarias. 

* Gestión de almacén. 

* Cálculo y gestión de comisiones. 


* Todos los ficheros pueden ser consultados, listados o modificados 

* Extenso y bien documentado manual con ejemplos prácticos. 

* Todo tipo de listado y estadísticas. 

* Y SEGUIMOS OFRECIENDO NUESTROS INTERESANTES 
PROGRAMAS PARA GESTION: TECNICA Y OCIO. 
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C/Aragón. 472 - 0813 BARCELONA 
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Como diseñar 
juegos para 

ordenador 

(capitulo 5 ) 






En el capítulo anterior vimos cómo 
se creaba una aventura básica inclu¬ 
yendo los componentes esenciales: 
diversas habitaciones, diversos obje¬ 
tos y un monstruo que nos atacaba si 
nos quedábamos en la habitación 
(para aquellos que no lo hayan des¬ 
cubierto todavía diremos que si dejan 
la caja de las galletas en la misma 
habitación que el monstruo, éste no 
les ataca), pero esta estructura es muy 
simple y fácil de aprender. Natural¬ 
mente se puede complicar añadiendo 
más habitaciones y más monstruos, 
pero hay otros métodos relativamente 
sencillos de mejorar el juego dándole 
un aspecto nuevo y más sabroso. 

CREANDO UN CARACTER 

El jugador del ejemplo del capítulo 
anterior era muy simple, podía estar 
Vivo o muerto Sin'ninguna' transición 
intermedia y sin ninguna caracterís¬ 
tica real. Una persona real, por otro 
lado, tiene una gran cantidad de 
características que influyen en su 
actuación, puede estar herida o can¬ 
sada, puede ser muy lista o ser tonta, 
etc. Todos estos datos hacen que a 
veces logre hacer una cosa y otras no 
pueda (excepto en las películas en las 
que el bueno siempre logra sus obje¬ 
tivos). El personaje que nosotros 
creemos puede tener parte de estas 
características. Las más importantes 


y el modo en que se modifican se 
incluyen a continuación: 

EXPERIENCIA: característica que 
influye en las peleas y otras acciones 
de difícil realización. Se incrementa 
cada vez que tenemos que realizar 
alguna. 

INTELIGENCIA: esta es una cua¬ 
lidad fijada desde el principio del 
juego y no se modifica posteriormen¬ 
te. Nos conviene tenerla cuando co¬ 
merciamos o discutimos con alguien. 

# c*- 

ya que influye en el resultado. 

FUERZA: la fuerza sirve para lu¬ 
char y para desplazarse de un stio a 
otro y disminuye cada vez que reali¬ 
zamos alguna de estas acciones. Si la 
fuerza llega a cero, el juego debe 
terminar (muerte por anemia) y se 
incrementa con las comidas, bebidas 
y demás sustancias nutritivas (por 
ejemplo una porción mágica). 

BONDAD: En muchos juegos hay 
un parámetro denominado bondad o 
amistad que indica la facilidad que 
tenemos para hacer amigos y por 
tanto para que éstos nos ayuden. El 
modo de incrementar la bondad es 
hacer amigos y disminuye cada vez 
que atacamos a alguien. 

Todos estos parámetros son varia¬ 
bles que pueden contener desde un 
valor mínimo hasta un máximo. Es¬ 
tos límites están fijados desde un 
principio (por ejemplo mínimo: 0 y 
máximo: 10) y el valor en cada 
momento del juego puede variar entre 


ambos, pero no excederlos (si cuando 
tenemos una fuerza de diez tomamos 
comida, el programa debe obedecer la 
orden, pero no incrementar la fuer¬ 
za). Cada vez que participemos en 
una acción que modifique uno de 
estos datos deberemos hacerlo e'n 
función de la acción, el tomar comida 
incrementa la fuerza en uno y la 
bebida en 0,5 (si la comida está I 
envenenada puede bajar la fuerza a 
dos) y cuando hagamos una acción 
que dependa de otros datos debere¬ 
mos utilizar lo que se denomina una 
función de peso. Esta función evalúa 
todos los tactores que intervienen 
dando porcentaje de intervención a 
cada uno de ellos y hallando la suma 
total, esta suma se compara con el 
valor mínimo necesario para lograr 
nuestro objetivo y el programa obra 
en consecuencia. En el caso de una 
lucha podemos suponer que la fuerza 
tiene un peso de 60; la experiencia, 30. 
y la inteligencia, diez. La función de 
peso correspondiente sería la fórmula 

PESO = 0.1 * INTELIGENCIA + 0.3 
* EXPERIENCIA + 0.6 * FUERZA 

Si cada uno de los datos variase 
entre cero y diez, el resultado variaría 
también entre estos límites y se tiene 
que comparar con el que le demos al 
enemigo. Por ejemplo, los dragones 
son de ocho, las serpientes de cuatro y 
otras personas, siete (o una puntua¬ 
ción distinta para cada persona). 

































LABERINTOS 

Los laberintos son una constante 
en el mundo de los juegos. El famoso 
comecocos lleva incorporado un pe¬ 
queño laberinto y la mayoría de los 
juegos los utilizan de uno u otro 
modo. 

A la hora de diseñar uno para 
incluirlo en nuestra aventura surgen 
las mismas dudas que vimos con las 
habitaciones en el programa del capí¬ 
tulo anterior. ¿Lo diseñamos fijo o 
que cambie cada vez que se juegue? Si 
lo diseñamos fijo tenemos la ventaja 
de que basta hacerlo a mano y luego 
meterle los datos a la máquina como 
hicimos en el juego del castillo, la 
desventaja consiste en que una vez 
que se ha recorrido una vez ya nos lo 
conocemos. En cambio si lo diseña¬ 
mos nuevo cuando empieza un juego 
tenemos la ventaja de que es distinto 
y desconocido, pero por contra el 
proceso de generar un laberinto no es 
tan fácil como parece, hay que tener 
en cuenta diversos factores, el labe¬ 
rinto debe tener entrada y salida y 
además deben estar conectadas por, 
al menos, un camino. Por tanto, no 
podemos generar un laberinto de 
forma totalmente aleatoria porque se 
podrían producir situaciones impo¬ 
sibles de resolver (la salida del labe¬ 
rinto rodeada de paredes de modo 
que no se pudiese llegar a ella). 

Otro problema que se debe resolver 
es el método que se utiliza para 
almacenar el laberinto en memoria. 
Este punto es bastante importante, ya 
que el tamaño del laberinto está 
limitado por la cantidad de memoria 
disponible. Un método para resolver 
este problema consiste en hacer un 
laberinto de varios pisos, por lo que 
sólo sería necesario tener en memoria 
el piso en que nos encontramos y los 
demás se van generando según cam¬ 
biamos de piso. El problema en este 
caso surge cuando volvemos a un piso 
en el que ya hemos estado. Para que 
el juego sea real el laberinto debe 
tener la misma forma durante todo el 
juego, por lo que tenemos que alma¬ 
cenar todos los niveles por los que 
hemos pasado, o al menos unos datos 
que nos sirvan para reconstruirlos. 
Para esto conviene echar un vistazo a 


los sistemas de generación de núme¬ 
ros aleatorios. 

NUMEROS DE AZAR EN 
ORDENADORES 

Los ordenadores no pueden crear 
números aleatorios. El lector que 
tenga unos conocimientos mínimos 
de BASIC estará pensando en este 
momento que la frase anterior está 
equivocada, ya que el Spectrum in¬ 


corpora las órdenes RANDOMIZE y 
RND que están diseñadas para gene¬ 
rar este tipo de números. Pero esto es 
incorrecto, un número aleatorio, o 
mejor dicho una sucesión aleatoria de 
números (ya que no tiene sentido 
hablar de números aleatorios, sino de 
sucesiones), es aquella que no puede 
ser generada por ninguna ecuación 
matemática y todos los ordenadores 
crean sus números mediante el uso de 
ecuaciones matemáticas (muy extra¬ 
ñas pero matemáticas) que pueden ser 
reproducidas. Aunque parezca un in- 
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conveniente, esto representa una ven¬ 
taja en muchos casos, en el apartado 
anterior veíamos la necesidad de ge¬ 
nerar una serie aleatoria o mejor 
dicho, seudoaleatoria, que pudiese ser 
reproducida. La primera idea que 
surge es utilizar la función RND del 
ordenador haciendo previamente 
RANDOMIZE con la semilla guar¬ 
dada, pero esto no vale porque el 


primer número sería siempre el mis¬ 
mo, pero luego empezaría a generar 
números distintos cada vez, ya que el 
procedimiento que usa internamente 
la máquina se basa en el contador que 
utiliza para generar la señal de video 
(FRAMES), este número no es alea¬ 
torio pero sí es extraordinariamente 
difícil de generar por lo que es prefe¬ 
rible recurrir a un generador propio 



inici o 


V 


SEMILLA = 
SEMILLA * 
SEMILLA 


V 


SEMILLA = 
CENTRO (SEMILLA) 


V 


NUMERO = 
INT(SEMILLA) 


V 


FIN 


Figura 1 


SEMILLA: 0,569982 

0,841910688 

0.758465148 

0,666058826 

0.759502621 

0,786275343 

0,7 5880 5844 

0,706486250 

0,739274584 

0,760647571 

0.758957504 

'0,7243897** 

0,739171100 

0,74890*972 

0,739027222 

0,732435524 

0.739124141 

0.743548017 

0.739058856 

0,736071531 

0,739102833 

0,741 1 1 1773 

0,7 5907 5210 

0,737718448 

0.7 5909 5165 

0,740005059 

0,739079723 

Figura 2 
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Figura 3 

005 

079 


sobre el que poseamos más control. 

La primera subrutina que creamos 
se basa en la función coseno, como se 
ve en el organigrama de la figura 1 se 
coge la semilla y se calcula su coseno 
que es el próximo número aleatorio 
(comprendido entre cero y uno) y, 
además, es la nueva semilla. Éste 
sistema no es válido porque a los 
pocos números empieza a generar 
siempre el mismo como se ve en la 
tabla 2; este número central es el 
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10 REM i*!*##**'#******************#**'*** 
20 REM * RUTINA PARA GENERAR NUMEROS * 
30 REM * ALEATORIOS * 

40 REM i*!*#***#*#*****#**************** 
50 REM SE=SEMILLR. LA PRIMERA VEZ QUE 
60 REM SE LLAME A ESTA RUTINA SE DEBE 
70 REM DAR UN NUMERO ENTRE 0 V 999 EN 
80 REM ESA VARIABLE. EL PROGRAMA LA 
90 REM ACTUALIZA CADA VEZ. 

100 REM HA= NUMERO ALEATORIO GENERADO 
110 REM COMPRENDIDO ENTRE EL 0 V EL 
120 REM 999. 

130 SE= i 3+SE)T2 
140 SE=SE/1000-1NT í SE/1000 > 

150 SE=SE*1000 
160 NA-1NT ( SE) 

170 RETURN 
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Figura 7 

0.739085133 que es el número cuyo 
coseno es igual a sí mismo. Ahora 
bien, si los cosenos generan series 
convergentes como se ve en la tabla 2 
hay un número relacionado con el 
que no lo es; si miran la tabla de la 
figura 3 verán cómo los primeros 
números no tienen ningún orden ni 
ascendiente ni descendiente, aunque 
luego tiendan a cero. Estos números 
han sido generados tomando los de¬ 
cimales cuarto, quinto y sexto de la 
La primera subrutina que creamos 
se basa en la función coseno, como se 
ve en el organigrama de la figura 1 se 
coge la semilla y se calcula su coseno 
que es el próximo número aleatorio 
(comprendido entre cero y uno) y, 
además, es la nueva semilla. Este 
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sistema no es válido porque a los 
pocos números empieza a generar 
siempre el mismo como se ve en la 
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tabla 2, este número central es el 
0.739085133, que es el número cuyo 
coseno es igual a sí mismo. Ahora 
bien, si los cosenos generan series 
convergentes como se ven en la tabla 
2, hay un número-relacionado con el 
que no lo es; si miran la tabla de la 
figura 3 verán cómo los primeros 
números no tienen ningún orden ni 
ascendente ni descendente,' aunque 
luego tiendan a cero. Estos números 
han sido generados tomando los de¬ 
cimales cuarto, quinto y sexto de la 
sucesión anterior, las cifras interme¬ 
dias de un número matemático, como 
se puede ver, tienen muy poco de 
lógico y no aparentan relación entre 
ellas. El problema está en que la 
sucesión sigue siendo la misma y por 
tanto acaba tendiendo al mismo nú¬ 
mero. Ahora bien, si cambiamos la 
semilla y hacemos que este nuevo 
número sea la semilla, el sistema 
alcanza una aleatoriedad bastante 
decente. El organigrama correspón¬ 
dete está en la figura 4, el programa 
en la figura 5 y los números genera¬ 
dos en la figura 6. Además esta rutina 
genera los mismos números para la 
misma semilla, por lo que nuestro 
sistema de generación de números 
está completo. 


LABERINTOS ALEATORIOS 

Una vez que sabemos generar nú¬ 
meros aleatorios podemos empezar a 
crear un programa que genere labe¬ 
rintos. El primer sistema en que 
piensa uno consiste en dividir el 
laberinto en cuadrados y aleatoria¬ 
mente fijar qué paredes existen y qué 
paredes no (figura 7). Este sistema 
genera una distribución totalmente 
aleatoria que es lo que nos interesa, 
pero tiene el inconveniente de que 
puede que no exista solución. Para 
evitar esto se adopta una solución 
algo más complicada, pero que siem¬ 
pre tiene solución. En primer lugar se 
crea un plano en el que se colocan 
todas las paredes (figura 8a). A con¬ 
tinuación se empiezan a quitar pare¬ 
des al azar partiendo a la vez desde la 
puerta de entrada y de salida y 
quitando paredes de cuadros conse¬ 
cutivos a los que se tenga acceso. Es 


decir, si en una casilla hemos quitado 
la pared de la izquierda nos despla¬ 
zaremos a la casilla de la izquierda y 
quitaremos otra pared de esa casilla, 
supongamos que es la pared de arriba 
(figura 8b), en este caso nos desplaza¬ 
remos a la casilla superior y quitare¬ 
mos otra pared. Cada casilla por la 
que pasemos la marcaremos con un 
número que será distinto para las que 
hagamos desde la casilla de entrada y 
para las de la casilla de salida. Esto 
tiene dos finalidades, en primer lugar 
cuando desde una casilla de salida 
quitemos una pared que dé a una 
casilla de entrada o viceversa, sabre¬ 
mos que ya hay un camino que une 
ambas. Por otro lado si desde uno de 
los dos caminos detectamos un sitio 
por el que hemos pasado debemos 
cambiar de dirección para evitar me¬ 
ternos en un círculo sin fin (figura 8c). 
Aun así pueden existir casos en los 
que acabemos en un trazado sin 
solución (figura 8d), debiendo volver 
a la entrada (o salida) para generar 
otro camino distinto, el anterior se 
puede dejar como estaba o cerrar 
todas las paredes, esto queda a elec¬ 
ción suya. Cuando ya hayamos co¬ 
municado la entrada con la salida 
debemos generar otros caminos (si 
no, no sería un laberinto) del modo 
más desordenado posible. Para esto 
vamos mirando una por una todas las 
casillas por las que no se ha pasado ya 
y quitando paredes al azar. Al final 
nos queda un laberinto propiamente 
dicho con un camino (al menos) entre 
la entrada y la salida (figura 8e). 

El modo en queusamos los núme¬ 
ros aleatorios en este caso varía de 
una parte a otra. Si suponemos que el 
número generado varía del cero al 
999, en la primera parte lo usaremos 
para determinar qué pared se quita, 
ya que siempre se quita una y sólo 
una pared. Podemos decir que si el 
número es menor de 249, se quita la 
pared izquierda, si está entre 250 y 

499 se quita la pared superior, entre 

500 y 749 la derecha y si es mayor de 
750 se quita la inferior. En caso de 
que de este modo nos toque quitar la 
pared por la que hemos entrado, 
deberemos buscar otra, ya que de 
seguir con la primera volveríamos 
hacia atrás. Cuando ya tengamos el 
camino buscado y quitemos paredes 


al azar se usa el número aleatorio 
para ver si quitamos una pared o no, 
en cada casilla generaremos un núme¬ 
ro por cada una de las cuatro paredes. 
Podemos decir que la pared se quita si 
el número es mayor de 500 y se deja 
en caso contrario. Si vemos que el 
programa crea laberintos con dema¬ 
siados huecos cambiaremos el 500 
por un número inferior, si deja dema¬ 
siadas paredes lo cambiaremos por 
uno superior. 


si 


ENTRADA! i 


NO, 


Figura 9 

También se debe tener cuidado de 
no quitar una pared que dé al exterior 
del laberinto (figura 9) con la excep¬ 
ción hecha, naturalmente, de la en¬ 
trada y de la salida. 

ALMACENAMIENTO DE 
LABERINTOS EN MEMORIA 

Una vez generado nuestro laberin¬ 
to surge el problema de almacenarlo 
en memoria (como todo el mundo 
sabe, los laberintos además de perder 
a la gente tienen la propiedad de ser 
“canibytes”, o comedores de bytes) 
de modo que nos quepa y deje sitio 
para el resto de la aventura. Un 
sistema básico consiste en una matriz 
de dos dimensiones, para aquellas 
personas que no sean expertas en 
matemáticas se puede hacer una 
comparación con un tablero de aje¬ 
drez o de jugar a los barcos en los que 
cada casilla se indica por dos núme¬ 
ros, el primero indica la columna y el 
segundo la fila, dándonos la situación 
exacta (figura 10). En este caso po¬ 
demos definir una matriz con la 
orden: 

10 DIM A (10,10,5) 

En donde: el primer número indica 
las filas que hay; el segundo, las 
columnas, y el tercero nos señala 
cuántos números caben en cada casi¬ 
lla. El primero (a (X,Y.l) siendo X la 
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Figura 10 


fila e Y la columna) nos dirá si no se 
ha pasado por esa casilla con un cero, 
con un uno nos dirá que es una casilla 
que viene de la entrada, con un dos 
que viene de la salida y con un tre 
señala que es una casilla que se ha 
generado aleatoriamente después de 
unir la entrada con la salida. Los 
otros cuatro números de cada casilla 
indican la pared de una de las cuatro 
direcciones. El número A(X,Y,2) in¬ 
dica la pared de la izquierda (1 pared. 
0 hueco), el elemento A(X,Y,3) sería 
la de arriba, la del cuatro sería la 
derecha y el quinto número sería la 
pared de abajo. Hay que tener en 
cuenta que cuando quitamos una 
pared de una casilla hay que quitar la 
pared opuesta de la casilla siguiente. 
Si de una casilla quitamos la pared 
izquierda, en la casilla colocada en la 
izquierda hay que quitar la pared de 
la derecha, esto que parece una pe- 
rogrulla es necesario por el método 
que se usa para almacenar el laberin¬ 
to, ya que cada pared está indicada 
dos veces, una por cada habitación 
que divide. Si no procedemos así 
podemos encontrarnos con el curioso 
caso de que el programa nos deja 
pasar de una habitación a otra, pero 
no nos deja volver a la primera (esta 


opción puede ser interesante en el 
caso de un laberinto encantado). 

Este sistema aunque es sencillo de 
manejo tiene el problema de que 
ocupa grandes cantidades de memo¬ 
ria. para intentar reducir este consu- 



1000 
1010 
1 030 
1040 
1060 
1070 
1080 
10*30 
1 1 00 
1110 
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1200 
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2100 
2110 
2120 
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2140 


REM 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM ** 


RUTINñ PflRfi CONVERTIR 
UN NUMERO EN SIETE D FITOS 
F’I=PñRED IZQUIERDO 
PD= PfiRED DERECHO 
PS-PflRED SUPERIOR 
F’N-PflRED INFERIOR 
CE-COMINO ENTRADO 
CS=C0MIN0 SRLIDO 
CONCOMINO OLEOTORIO 
SOLO PUEDE VALER UNO 
0 CERO. PORO INDICAR 
EXISTENCIA 0 NO. 

NU= NUMERO D0D0 


* 

* 

* 

* 

# 

* 

* 

* 

% 

* 

* 


• > 


150 
2160 
2170 
2180 


IF NU> 127 THEN F’RINT "ERROR" : STOP 
CH=0:IF NU>63 THEN NU=NU-64 : CA=1 
CS=0 : 1F NIJ>31 THEN NU=NU-32: CS=1 
CE=0 : IF NU>15 THEN NU=NU-16:CE*1 
F'N=0: IF NIJ>7 THEN NlMNU-8: PN= 1 
PD = 0 : IF NU>3 THEN NU=NU-4:PD=1 
F'3=0 ; IF NU> 1 THEN NU=NU-2=PS=1 
PI-0 : IF NU>0 THEN NU=NU-1 : PI=1 
RETURN 
REM 

REM # RUTINA PARA CONVERTIR 
RÉM * SIETE DATOS EN UN NUMERO 
REM * PI=PAREB IZQUIERDA 
REM * F'D= PARED DERECHA 
REM * F’S=PARED SUPERIOR 
REM * F'N=PARED INFERIOR 
REM % CE=CAMIN0 ENTRADA 
REM * CS=CAMINO SALIDA 
REM * CA=CAMIN0 ALEATORIO 
REM * SOLO PUEDE VALER UNO 
REM * 0 CERO. PARA INDICAR 
REM * EXISTENCIA 0 NO. 

REM * NU= NUMERO DADO 

REM . 

HU=P I % 1 +PS*2+F'D#4+PN*8+CE# 16+CS#32+Cfi#64 
RETURN 
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mo vamos a recurrir a unos cuantos 
“trucos”. Si nos fijamos, necesitamos 
solamente siete indicadores: uno por 
cada una de las cuatro paredes y uno 
por cada una de las siguientes condi¬ 
ciones: que venga de la entrada, que 


venga de la salida o que sea generado 
al azar. Estos tres últimos son exclu- 
yentes (no puede existir una casilla 
que venga a la vez de la entrada y de 
la salida) y se pueden representar 
también con un uno o con un cero. Al 


final nos queda una distribución co¬ 
mo la de la figura 11. Para aquellas 
personas avanzadas en el mundo de la 
informática les sonará a un número 
binario, y ése es el uso que les vamos 
a dar. Debajo de cada uno o cero va 


5 GOTO 3000 

10 REN #***##***r*******************iMi 
20 REM * RUTINR PARA GENERAR NUMEROS * 

30 REM * ALEATORIOS * 

40 REM ilt*##*#**#*##****)):*#*#*********# 

50 REM SE=SEMILLA. LA PRIMERA VEZ QUE 
60 REM SE LLAME A ESTA RUTINA SE DEBE 
70 REM DAR UN NUMERO ENTRE 0 V 999 EN 
80 REM ESA VARIABLE. EL PROGRAMA LA 
90 REM ACTUALIZA CADA VEZ. 

100 REM NA= NUMERO ALEATORIO GENERADO 
110 REM COMPRENDIDO ENTRE EL 0 V EL 
120 REM 999. 

130 SE=<3+SE)12 

140 SE=SEX1000-1NT(SE/1000) 

150 SE=SE#1000 
160 NA=INT(SE) 

170 RETURN 
508 REM 

510 REM * PONER INDICADORES A CERO * 

520 REM **♦*♦***********#*#***»*****#* 

530 REM 

540 PI =0: PS=0 : PD=0 = F'N=0: CS=0 : CE=0 : CA=0 
550 RETURN 
600 REM 

610 REM * PONER LAS CUATRO * 

620 REM * PAREDES * 

630 REM «*»****«**»**«*****»#**'**»**«» 

640 FI = 1 : PD= 1 : F'S= 1 : F'N= 1 : RETURN 

800 REM »> COLOCAR CASILLA ENTRADA 0 SALIDA 

810 GOSUB 10 

820 IF NRC250 THEN P$="I"¡GOTO 860 
830 IF NAC500 THEN P$="S":G0T0 860 
840 IF NAC750 THEN P$="D":GOTO 860 
850 F'$="N" 

860 REM »>VER CASILLA IZQUIERDA 
865 SP=0 

870 IF X* 1 THEN SP=SP+1=G0T0 890 

880 NU=A < X-1,V):GOSUB1000:1F < < CE=1)AND < DE=CE))OR(<CS=1)AND <DS-CS))THENSP*SP+1 
890 IF X=10 THEN SP=SP+1:GOTO 910 

900 NU=A < X+ 1 ,V ): GOSUB 1000: 1F < ( CE= 1) AND ( DE=CE ) ) OR < < CS= 1 ) AND < DS-CS )) THENSP=8F'+1 
910 IF V=1 THEN SP=SF’+1 : GOTO 930 

920 NU=A < X, V-1) : GOSUB 1000:1F < < CE* 1) AND < DE=CE)) OR (< CS= 1) AND < DS=CS ) ) THENSP=SP+1 
930 IF Y=10 THEN SP*SP+1:GOTO 950 

940 NU*A (. X j V+1): GOSUB 1000 : 1F C < CE* 1) AND (DE=CE)) OR < < CS* 1) AND < DS-CS ) ) THENSP=SP+1 
y50 IF SF-4 THEN GOTO 3080 : REM CAMINO BLOQUEDADO. VOLVER A EMPEZAR 
960 REM>» EXISTE? 

962 IF P»*"I" AND X=1 THEN GOTO 800 
964 IF F'$="D" AND X=10 THEN GOTO 800 
966 IF F'$="S" AND V=1 THEN GOTO 800 
968 IF P$="N" AND V=10 THEN GOTO 800 


60 
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un número que indica su valor en 
decimal y se usa del siguiente modo: 
para hallar la representación decimal 
de un número de este tipo sumamos 
los números de debajo (1, 2, 4, 8, 
16...) sólo si nuestro indicador vale 


uno, si vale cero no se suma, al final 
nos queda un solo número que nos 
indica las siete condiciones que que¬ 
ríamos controlar. Por ejemplo el nú¬ 
mero siete es la suma 1 H- 4, que 
significa pared izquierda y pared de¬ 


recha. Si está pensado que se puede 
representar 14-2 + 2 fíjese que cada 
número sólo puede figurar una vez y 
en este caso se repite el dos. Si 
tenemos un número que no figura en 
la tabla (el 6, por ejemplo) lo debe- 


972 NU-R< X+1 % <. P$= " I “ >-1 % C P$« "D 11 > A'+1 % í PS="S">-1* < P$«"N"> >: GOSUB 1000 
974 REM »> CAMINO DE SflLIDR? 

976 IF DS -1 THEN IF DS=CE THEN GOTO 4000 

978 IF DE=1 THEN IF DE=CS THEN GOTO 4000 

980 IF DE=1' THEN IF DE=CE THEN GOTO 800 

982 IF DS=1 THEN IF DS=CS THEN GOTO 800 

984 REM»> QUITAR PARED 
986 NU=AOw V)•GOSUB 1000 : CE=DE : CS=DS 
qg -¡7 jp P'$" j 11 f¡ 0 T n 989 

988 PI =0: 6OSUB2000 7 A ( x’ V > =NU : X=X -1 : NU=A < X /t‘ > • GOSUB 1000 : PD*0 • GOSUB2000 : A C X , V ) =NU 

989 IF P$0"S" GOTO 991 

990 FS=0:GOSUB2000•A<X,V>=NU : V=V-1•NU~A<X,V)•GOSUB1000•PN=0:GOSUB2000•FKX,V)*NU 

991 IF P$O h D m GOTO 993 

992 PD=0 : GOSUB2000: ACX, Y)=NU: X=X+1: NU=ACX/t’> : GOSUB 1000 : PI=0- GOSUB2000 : ACX/t‘)=NU 

993 IF P$0"N" GOTO 996 

994 PN=0 : GOSUB2000 • A ( X, V > =NIJ *• V=V+1 : NU=A C X, V) • GOSUB 1000 : PS=0 : GOSUB2000 : A < X , Y > «NU 
996 RETURN 

1000 REM **^*^^*^+^>:****+**^***^:^*^**^* 


1010 REM * RUTINA PARA CONVERTIR 
1030 REM * UN NUMERO EN SIETE DATOS 
1040 REM * PI«PARED IZQUIERDA 
1060 REM * PD= PARED DERECHA 
1070 REM * PS=PARED SUPERIOR 
1080 REM * PN=PARED INFERIOR 
1090 REM % CE=CAMINO ENTRADA 
1100 REM * CS=CAMINO SALIDA 
1110 REM * CR=CAMINO ALEATORIO 
1120 REM * SOLO PUEDE VALER UNO 
1130 REM * 0 CERO. PARA INDICAR 
1140 REM # EXISTENCIA 0 NO. 

1150 REM * NU= NUMERO DADO 



7U 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
2000 
2010 
2030 
2040 
2060 
2070 
2080 
2090 
2100 
2110 
2120 



* 


% 

* 

* 

* 

* 

# 

* 

* 

* 

* 


IIJ 


r 



:n 


N 


’RIJR " : SI IJ| 


CA=0 : IF 

cs=0« IF 

CE=0 : IF 
PN«0 : IF 
PD=0-IF 
PS=0*IF 
PI«0:IF 
RETURN 
REM 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 


NU>63 THEN NU*NU-64•CA=1 
NU>31 THEN NU=NU-32 : CS=1 
NU>15 THEN NU=NU-16 : CE=1 
NU>7 THEN NU=NU-8 : PN«1 
NU>3 THEN NU=NU-4:PD=1 
NU>1 THEN NU=NU~2 : PS=1 
NU>0 THEN NU=NU-1 : PI == 1 


RUTINA PARA CONVERTIR 
SIETE DATOS EN UN NUMERO 
PI=PARED IZQUIERDA 
PD= PARED DERECHA 
PS=PRRED SUPERIOR 
PN=PARED INFERIOR 
CE=CAMINO ENTRADA 
CS=CAMINO SALIDA 
CA=CAMINO ALEATORIO 
SOLO PUEDE VALER UNO 


* 

* 

* 

* 

* 

* 

# 

% 


NUMERO 8 














2130 
2140 
2150 
2160 
2170 
2180 
3000 
3010 
3020 
3030 
3035 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3135 
3140 
3150 
3160 
3170 
3180 
3130 
3200 
3210 
4000 
• 4005 
4010 
4015 
4020 
4025 
4030 
4035 
4040 
4050 
4060 
4070 
4075 

4080 
4090 
4098 
41 00 
4105 
4108 
4110 
4115 
4118 
4120 
4125 
4123 
4130 
4135 
4200 


REM * 0 CERO. F’ñRfl INDICAR * 

REM * EXISTENCIA O NO. * 

REM * NU= NUMERO DADO * 

REM ****************************** 

NU=PI*1+PS*2+F'D*4+PN*8+CE*1S+CS*32+CA*64 

RETIJRN 

REM ****************************** 

REM * PROGRAMA PRINCIPAL 
REM 
REM 

I NF'UT" SEMILLA "; SE 
REM i 

REM * GENERAR LABERINTO 
REM i 

DIM AC10,10) 

REM»} PONER PAREDES 

FOR X—1 TO 10:FOR Y=1 TÜ 10 

GOSUB 500 : GOSUB 600:GOSUB 2000:ROÍ,Y)=NU 

NEXT V : NEXT X 

REM >» COLOCAR ENTRADA 

- GOoUE 500: GOSUB 600 :PS=0: GOSUB 2000 •'RíEX; EY)=NU 
REM»} COLOCAR SALIDA 

1 r500: GOSUB 600 :pN=0: GOSUB 2000: ACSX, SY)=NU 
X=EX•Y-EY:Db=1:DS=0 

GOSUB 800 

EX=X:EV=Y 

X=SX:Y=SY:DE=0:DS=1 
GOSUB 800 
SX=X:SV=V 
GOTO 3150 

REM»>SE ENCUENTRAN LOS CAMINOS 
IF P$0"I " GOTO 4015 

IF = P$O”S" £ n0T0 fi 4e25 :,=NIJ : NU “ fl<X ' V): GOSUB 100©: F'D-0: GOSUB2000: 

ÍF“p*<^HoTO fi 4TO5 > =NU: V=V ~ 1 ; NU=ñ( X ' V ): G0SUB10001 PH=0: OOSUB2000: 
IF = P$?»N" ¿ GnTO R 4050 =NU : X=K+1 ’ HU “ fl(X / V> : GOSUE1000: PI=0 : GOSUB2000: 

PFM- 3 -- G0 Dn^rM-r fi 5 - - V '' =HU: V=V+1 : NLN=I < X ' V) : GOSUB 1000 : PS=0:GOSIIB2000 : 
REM}}} RELLENHR LHS DEMAS CASILLAS 

FOR X=1 TO 10:FOR V=1 TO 10 
NU=A(X,Y) : GOSUB1000 
REM>» OCUPADA? 

IF CE OR CS THEN GOTO 4200 

REM»> QUITAR PAREDES 

GOSUB 10- Ih X<2 OR NA>500 GOTO 4108 

H'>A (. X .• V ) : GOSUB 1000 : PI =0: GOSUB 2000: A < X /Y > -NU 

NU=R í. X-1 .i V ) : GOSUB 1000: PD=8 : GOSUB2000: A < X-1, Y) =NU 

GOSUB 10=IF Y<2 OR NA>500 GOTO 4118 

NU=Aí. X,Y) : GOSUB 1000: PS=0 : GOSUB 2000: A(X. Y> =NU 

HU=A C X, V-1 ) : GOSUB 1000 : PN=0: GOSUB2000: A (' X, Y-1 ) =NU 

GOSUB 10-IF ¡09 OR NA>50@ GOTO 4128 

NU=fi í X, V) : GOSUB1000 : PD=0 : GOSUB 2 0 00: R< y,, y> = \.\y 

NLJ-R X+1.. V,<• ijijyUB 10Q0 •' PI =0 • GQ3UB2000 : ñ <X+1 . y) =HI i 

GUbUE 10;IF y>9 OR NR>500 GOTO 4200 

NL^ñ(.X ,W"> : GOSUB 1000 • PN=0 •' GOSUE 2000: R<X.. V>-NU 

NU=ñ í. X , y +1 >: GOSUB 1000 •’ PS-0 ; GOSUB2000 : R < X, y + 1 ') =NI l 

NEXT *V: NEXT X . HU 


R C X .*V) =NU 
fiOwV) =NU 


R ( X f V> = NIJ 


R<x,y>=NU 


Lzxne_ 


NUMERO 8 

















4210 

4220 

4230 

4240 

4250 

42b© 

4270 

4286 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4500 

4505 

4510 


REM 

REII * EMPIEZA EL JUEGO 


"ATRAS" 

"DERECHA" 

"FRENTE" 


M 


JX=1 ; JV=1 

NU-A<JX,JV >:GOSUB 1000 
PRINT "HAV SALIDAS HACIA-" 

IF PI=@ THEN PRINT "IZQUIERDA" 
IF PS=0 THEN PRINT 
IF PD=0 THEN PRINT 
IF PN-0 THEN PRINT 
PRINT "MOVIMIENTO 
INPUT A$ 

A$=LEFT$<A$, V) 

REM»> POSIBLE? 

IF A$="I" AND PI=0 THEN JX=JX-1 

AND PS=0 THEN JV=JV-1 

AND PD=0 THEN JX=JX+1 

" AND PN*0 THEN JV*JV+1 

PRINT "NO SE PUEDE" : GOTO 4260 
IF JV=11 THEN PRINT "SALIO BIEN 
IF JY=0 THEN PRINT "SALIO MAL" 
GOTO 4250 


IF A$="A" 
IF R$="D" 
IF A$="F 


: GOTO 4500 
: GOTO 4500 
•'GOTO 4500 
: GOTO 4500 

":STOP 
: STOP 





LA NUEVA BOUTIQUE DE MICROORDENADORES 
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QnTcTo 


PONER 
PAREDE S 



REPETIR 
*C*CAMBIAND 
.ENTRADA Y 
SALIDA 


COLOCAR 

ENTRADA 






COLOCAR 

SALIDA 


GENERAR 
CASILLA DE 
CAMINO ENT¬ 
AL AZAR 


<D 



QUITAR 

PARED 


CASI LLA = 
CASILLA 
NUEVA 



Figura 14-a 


TABLA 1 

SEMILLA: 

0.569982 

0.841910688 

0.666038826 

0.786275343 

0.706486250 

0.760647571 

0.724389733 

0.748903972 

0.732435524 

0.743548017 

0.736071531 

0.741111773 

0.737718448 

0.740005059 

0.738465148 

0.739502621 

0.738803844 

0.739274584 

0.738957504 

0.739171100 

0.739027222 

0.739124141 

0.739058856 

0.739102833 

0.739073210 

0.739093165 

0.739079723 


mos descomponer en suma de éstos (2 
+ 4). 

Si las explicaciones anteriores le 
han parecido complicadas, no se 
preocupe y utilice las rutinas de la 
figura 12. La primera convierte los 
siete datos en un número para alma¬ 
cenar en la matriz y la segunda coge 
este número y lo convierte en los 
datos separados. 

De este último modo podemos 
almacenar los datos de cada casilla en 
un sólo número y el espacio necesario 
para almacenar una matriz se reduce 
a la QUINTA PARTE. En este caso 
la matriz la definimos: 

DIM A( 10,10) 

Sin poner el tercer número, ya que 
al ser un uno el ordenador lo toma 
por defecto. 

MOVIENDOSE POR EL 
LABERINTO 

Una vez generado el laberinto eL 
programa debe movernos por él. Este 
sistema es sencillo. El jugador tendrá 
dos contadores (a los que llamaremos 
JX y JY que indicarán respectiva¬ 
mente la fila y la columna en que nos 
encontramos. Si le mandamos des¬ 
plazarse a la izquierda bajará el 
contador JX en una unidad, si es a la 
derecha deberemos incrementarlo. Si 
nos vamos para arriba decrementa- 
remos JY en uno y si es para abajo lo 
incrementaremos (figura 13). 

Debemos comprobar que el movi¬ 
miento es posible (no hay pared por 
medio) y ver si estamos en la salida 
con lo que se acabaría el juego. 

Como resumen de todo lo dicho se 
muestra el listado de un programa 
que genera un laberinto y permite al 
jugador desplazarse por él para que 
intente salir (¡ojo!, el programa es 
como un laberinto de verdad, no 
muestra el plano y sólo nos dice los 
caminos posibles que hay desde la 
habitación en que nos hallamos). 


Fernando García Fernández 


64 



NUMERO 8 















































































CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 

Sistema Commodore 
Puede Hacerle Ganar 5.ooo Ptas 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 


■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.000 ITAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE”. 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 



C/Bravo Murillo, 377. 28002-Madrid • 























Figura 14-b 


ANUNCIESE 








MADRID 

( 91)7339662 


BARCELONA 
( 93)3014700 
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Wimbledoti'64 


PROGRAMAS 
ORIGINALES 
DE IMPORTACION 
PARA 

Qz commodone 


TODOS ESTOS PROGRAMAS 
HAN ESTADO SITUADOS 
ENTRE LOS CINCO 
PRIMEROS PUESTOS 
DE LAS LISTAS 
DE SUPERVENTAS 
BRITANICAS 


BEACH HEAD. El juego mas popular de 
América con los más sorprendentes efectos 
de animación (COMP ANSWER). los mejo¬ 
res efectos de sonido y gráficos para este 
computador (U S. BILÍBOARD) Múltiples 
pantallas, fantásticos efectos tridimensio¬ 
nales en un escenario de acción bélica Un 
best-seller (GAMES) 2 300 pts 


WIMBLEDON 64. Uno de los mejores 
juegos de simulación de deportes concebi¬ 
do para C-64 (C & V GAMES). Horas de 
entretenimiento para los amantes del tenis 
y admiradores de McEnroe. Connors y Borg 
(POP COMP WKLY) los gráficos, la movili¬ 
dad y el control de las jugadas esfántastico 
(YOUR 641 2 300 pts 


MANIO MINER. Verdaderamente supera 
a la versión líder de ventas para Spectrum 
(COM USGR). Pantallas y pantallas con 
todo tipo de gráficos, colores y efectos 
musicales (HOME COMP WKLY) Superior a 
"Mmer2049 Sin mas(CRASH). 1 800 pts 


SOLO FLIGHT Incomparable, solo nece¬ 
sita pista y alas (COMPUTE) Constantes 
efectos tridimensionales, perfecto scroll y 
auténticos efectos sonoros (RUN). 21 aero¬ 
puertos diferentes, idénticos instrumentos 
de bordo, emergencias. V O.R.. una perfecta 
simulación de vuelo (COM USER) 

3.900 pts 


ENCOUNTER. los gráficos son perfec 
tos. el efecto tridimensional soberbio Este 
juego es un "primera dase (WICH MICRO) 
ENCOUNTER es el juego de salón mas com¬ 
pleto escrito para un ordenador personal 
(GAMES). Nuestra puntuación un 10 
(TPUG). 2 300 pts 


DECATHLON La animación y los gráficos 
de los atletas es soberbia (P C GAMES) 
Decathlon es una bella simulación de los 10 
eventos de la popular prueba olímpica (PO 
PULAR COMPUTING) Uno de los programas 
mas adictivos y espectaculares que he 
conocido (CRASH) "2 800 pts 


PITFALL. Uno de los juegos para Atan 
mas vendidos en U S A ahora en COMMO 
DORE (WHAT MICRO' Caimanes serpien 
tes. escorpiones una selva en tu 64 
(GAMES COMPUTING) ¿Quien ha sido 
capaz de encontrar los 32 tesoros escon 
didos en menos de 20 minutos 7 (ElEC 
TR'ONICS & GAMES) 2 800 pts 


COLOSSUS CHESS 28 Este juego de 
inteligencia es indiscutible en vuestra tx 
blioteca (GAMES) El juego mejor fogradoen 
su categoría (POP COMP WKLY) grillante 
sin duda 4 estrellas (COMP & VIDEO 
GAMES). 2 800 pts 


ASTRO CHASE 34 pantallas con carica 
turas animadas en tres dimensiones 
(GAMES) Juego de fantasía y ciencia fie 
cion del ano 1984(ELECTRONICGAMES' La 
mayor innovación en videojuegos (THE 
WHIZ KIDi Este programa batira todos los 
records de supervenías (RU N i 2 300 pts 


|Brcelente altamente 

HMtS) Color y sonido 
^cos perfectos nuestra pun 
10 (COMP & VIDEO GAMES) 

1 800 pts 


de es’AVst setter ¡POP, 

versiones 

Coleco etc) hansmi^H 
duda esta lo sera tambTe 
BOARD) 


y 4 í y i 


[ m ciV 



COMMODORE 64 


VIC-20 

I RON 

1 700 

JOY SÍICK PAINTER 

FROGGER (Joysíick) 

1 700 

PIPER 

KONG 

1 700 

TRON 

SCREEN GRAPHICS 

1800 

INVASION 

FNSAM81AD0R 

1900 

PHANTON 

PARATROPFRS 


3. 8, 16K 1 600 
3. 8. 16K 1 700 
Sfd 1600 
Std 1600 
3. 8. 16K 1 600 
Std 1600 


Envíenos a M1CROBYTE 


San Gerardo, 59 

MADRIE 

)-35 

Nombre 

Juego 

Precio 


TOTAL 

Apellidos 





Dirección 





Población 





D.P. Teléfono 





Incluyo talón nominativo 

□ 





Contra Reembolso 

□ 

PRECIO TOTAL PESETAS 



CM- ENVIOS GRATIS 


Pedidos por pcpt/ 

Teléfono yl-bODDÍ 

102 
















































ES MUY DIFICIL SER MODESTO 


Cuando se tiene un ordenador personal 
con 64K de memoria, una magnífica resolución, 

16 colores, efectos tridimensionales 
con "sprites", un sonido equivalente 
al de un sintetizador, un teclado profesional 
con 62 caracteres gráficos, 
toda una amplia gama de periféricos 
profesionales, la más completa serie 


de programas educativos, procesionales 
y de video-juegos...; en resumen, cuando se 
tiene un ordenador persona como no existe 
ningún otro en el me r cado / el más vendido 
mundialmente, cuando se tiene 

el Commodore 64, es muy difícil mostrarlo 
sin que el orgullo se te note. 





EL ORDENADOR PERSONAL DE LA FAMILIA MAS POTENTE 

— Sistemas de gestión profesionales series 8000 Y 700. —Ordenador portátil SX 64. 

- Ordenador personal COMMODORE 64. - Ordenador familiar V C 20. 


commodore 

COMPUTER 

MICROELECTRONICA Y CONTROL, S.A. 
c/ Taquígrafo Serra, 7, 5.° BARCELONA-29 c/ Princesa, 47, 3.° G MADRID-8 






























